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FOREWORD 


The  Joint  Service  Multipurpose  Arcade  Combat  Simulator  (JMACS)  project  was  an 
outgrowth  of  the  Multipurpose  Arcade  Combat  Simulator  (MACS),  a  patented  part-task 
weapons  trainer  developed  by  the  Fort  Benning  Field  Unit  of  the  U.S.  Army  Research 
Institute  (ARI)  to  address  training  problems  arising  from  insufficient  facilities,  ammunition, 
and  numbers  of  qualified  instructors.  The  MACS  system  consists  of  a  microcomputer, 
video  monitor,  software,  and  long-distance  light  pen  mounted  to  a  weapon  or  mock-up. 
Although  MACS  is  inexpensive,  it  has  been  found  to  be  as  effective  as  more  costly  training 
devices,  particularly  in  the  area  of  rifle  marksmanship  training. 

Following  Army  testing  of  prototype  systems,  the  Navy  and  Air  Force  became 
interested  in  potential  training  applications  of  MACS  technology.  This  interest  led  to  the 
initiation  of  the  JMACS  project,  sponsored  by  the  Joint  Services  Program  (PE64722A)  on 
Manpower  and  Training  Technology  Development.  The  JMACS  project  funded  the 
development  of  an  improved  light  pen  (patent  pending)  and  light  pen  mount  by  the  Naval 
Training  Systems  Center  (NTSC),  introduced  MACS  technology  to  the  Air  Force  and  Navy 
in  a  series  of  field  tests,  and  supported  ongoing  MACS  development  and  evaluation  in  the 
Army. 

This  report  documents  the  design  of  the  hardware  and  software  used  in  the  JMACS 
project,  as  well  as  more  recent  developments  in  the  areas  of  light  pen  and  software  design. 
Three  organizations  cooperated  in  its  preparation:  the  ARI  Fort  Benning  Field  Unit,  its 
resident  scientific  support  contractor,  Litton  Computer  Services,  and  the  Advanced 
Simulation  Concepts  Laboratory  of  NTSC.  The  contributions  of  each  organization  were 
crucial  to  the  overall  success  of  the  project. 

The  Navy,  Air  Force,  and  Coast  Guard  have  maintained  interest  in  this  technology 
through  a  number ^>f  demonstration  projects  that  evolved  from  the  original  JMACS  field 
tests.  However,  thp~Army  has  been  most  vigorous  in  its  pursuit  of  the  training  benefits 
resulting  from  MACS  use.  With  the  support  of  the  senior  leadership  of  the  U.S.  Army 
Infantry  School,  the  U.S.  Army  ^Forces  Command,  and  the  U.S.  Army  Training  and 
Doctrine  Command,  over  400  MACS  M16A1  rifle  systems  have  been  fielded  Army-wide  to 
date.  It  should  be  noted  that  all  MACS  hardware  components  are  now  available 
commercially,  due  to  the  efforts  of  the  Fort  Benning  Training  Support  Center  in  developing 
MACS  contract  specifications.  By  duplicating  the  latest  MACS  software  and  obtaining 
components  from  commercial  sources,  the  Fort  Benning  Training  Support  Center  has  been 
able  to  offer  MACS  M16A1  rifle  systems  at  a  total  cost  of  $950  per  system  (plus  shipping) 
to  requesting  units  and  schools. 
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DESIGN  OF  A  JOINT  SERVICE 
MULTIPURPOSE  ARCADE  COMBAT  SIMULATOR  (JMACS) 


Introduction 

This  report  documents  the  design  of  the  hardware  and  software  used  in  the  Joint 
Service  Multipurpose  Arcade  Combat  Simulator  (JMACS)  project.  The  JMACS  project  was 
an  outgrowth  of  the  Multipurpose  Arcade  Combat  Simulator  (MACS),  a  patented  part- 
task  weapons  trainer  developed  by  the  Fort  Benning  Field  Unit  of  the  U.S.  Army  Research 
Institute  in  an  effort  to  overcome  the  training  problems  sometimes  encountered  due  to 
insufficient  facilities,  ammunition,  and  numbers  of  qualified  instructors  (Schroeder,  1984). 
A  MACS  system  consists  of  a  long-distance  light  pen  mounted  to  a  weapon  or  mock-up,  a 
microcomputer,  a  video  monitor,  and  a  software  cartridge  (see  Figure  1).  As  targets  are 
presented  on  the  monitor,  the  light  pen  determines  the  firer’s  point  of  aim  and  a  switch 
mechanism  attached  to  the  weapon’s  trigger  sends  an  electrical  signal  to  the  microcomputer 
when  each  shot  is  fired.  Performance  feedback  to  the  firer  is  presented  on  the  monitor 
after  each  shot  or  series  of  shots. 


Figure  1.  The  Multipurpose  Arcade  Combat  Simulator  (MACS)  configured  as  an  M16A1 
rifle  marksmanship  trainer. 


MACS  is  capable  of  providing  part-task  training  for  a  variety  of  weapon  systems 
because  the  light  pen  can  be  moved  from  one  weapon  system  to  another  accompanied  by 
a  change  in  the  software  cartridge.  Further,  it  is  relatively  inexpensive  to  produce,  because 
many  of  the  components  are  available  commercially.  Due  to  the  uniqueness  of  a  weapons 
training  device  based  on  a  long-distance  light  pen,  the  Army  filed  a  U.S.  patent  application 
in  1984  that  was  awarded  in  1986  (Schroeder,  1986).  Following  testing  of  prototype  MACS 
systems  by  the  U.S.  Army  Research  Institute  and  the  U.S.  Army  Infantry  Board  between 
1982  and  1986,  the  U.S.  Navy  and  U.S.  Air  Force  became  interested  in  the  potential 
applications  of  MACS  technology  in  their  respective  weapons  training  programs. 

Navy  and  Air  Force  interest  led  to  the  initiation  of  a  two-year  Joint  Service  MACS 
(JMACS)  project  in  fiscal  year  1986  sponsored  by  the  Joint  Service  Manpower  and  Training 
Technology  Development  Program.  The  JMACS  project  accomplished  several  objectives. 
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First,  it  funded  the  development  of  a  long-distance  light  pen  (patent  pending)  and  light  pen 
mount  by  engineers  at  the  Naval  Training  Systems  Center.  Compared  to  the  single-lens 
light  pens  used  in  earlier  MACS  prototypes,  this  light  pen  used  a  dual-lens  focusing  system 
that  permitted  its  overall  length  and  weight  to  be  reduced  by  approximately  one  third. 
Further,  it  yielded  more  accurate  light  pen  readings  when  in  close  temporal  proximity  to 
trigger  switch  closure,  because  its  electronic  circuitry  was  completely  separate  from  that  of 
the  trigger  switch.  Second,  the  JMACS  project  funded  the  purchase  of  25  MACS  systems 
configured  for  the  M16A1  rifle.  Equipped  with  the  Naval  Training  Systems  Center  light 
pen  and  mount,  these  systems  were  used  for  initial  testing  in  the  Navy  and  Air  Force,  as 
well  as  for  support  of  the  ongoing  MACS  development  and  evaluation  program  in  the 
Army.  Third,  demilitarized  M16A1  rifles  were  obtained  from  the  Anniston  Army  Depot 
for  the  JMACS  project  to  provide  greater  realism  and  durability  than  previously  used  mock- 
up  rifles.  Mock-ups  contained  lower  receivers  made  of  injection-molded  plastic  instead  of 
metal.  A  pushbutton  switch  that  more  accurately  replicated  the  force  of  pulling  an  actual 
M16A1  rifle’s  trigger  also  contributed  to  better  realism. 

Although  current  interest  has  focused  on  the  use  of  MACS  as  an  M16A1  rifle 
marksmanship  trainer,  prototype  systems  with  demonstration  software  also  have  been 
developed  for  the  M72A2  light  antitank  weapon  (LAW),  M203  grenade  launcher,  Mark 
19  grenade  machinegun,  and  the  M136  (AT-4)  LAW.  Since  exploratory  research  began 
on  the  MACS  concept  in  1982,  over  20  developmental  hardware  tests,  training  and  cost 
effectiveness  evaluations,  and  informal  field  investigations  have  been  conducted.  Evans 
(1988)  identified  five  major  research  trends  in  summarizing  the  history  of  MACS 
development  and  evaluation,  including  the  JMACS  project: 

1.  MACS  performance  is  at  least  moderately  related  to  both  live-fire 
marksmanship  performance  aud  performance  on  a  high-fidelity  simulator. 

2.  In  relatively  extensive  training  programs  over  one  week  in  duration,  firers 
who  receive  MACS  training  in  addition  to  standard  training  tend  to  perform 
slightly  higher  than  those  who  receive  standard  training  alone. 

3.  In  less  extensive  training  programs  completed  in  one  day,  firers  who  receive 
a  meaningful  amount  of  MACS  training  prior  to  standard  training  tend  to 
perform  significantly  higher  than  those  who  receive  standard  training  alone. 

4.  The  effectiveness  of  MACS  training  is  greater  for  those  individuals  or 
groups  having  a  lower  initial  level  of  ability. 

5.  MACS  use  in  training  is  associated  with  a  consistent  reduction  in  the 
percentage  of  firers  failing  to  meet  minimum  performance  standards  and 
with  a  significant  reduction  in  subsequent  ammunition  expenditures. 

In  addition  to  these  research  trends,  MACS  use  appears  to  have  a  number  of 
intangible  benefits  in  preparatory,  remedial,  and  sustainment  training  (Evans,  1988). 
MACS  provides  precise  and  immediate  performance  feedback  in  a  dry  fire  training 
environment,  where  the  usual  amount  of  performance  feedback  provided  to  instructors  and 
firers  is  severely  limited.  With  MACS  it  is  now  possible  to  provide  a  more  standardized 
method  of  dry  fire  training  and  to  establish  more  meaningful  minimum  performance 
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standards  during  this  instruction.  Another  intangible  benefit  is  that  MACS  training  seems 
to  be  more  enjoyable  and  interesting  than  conventional  dry  fire  training  methods,  as  student 
questionnaire  responses  have  consistently  indicated  highly  positive  opinions  of  MACS 
training.  Evans  (1988)  concluded  that  the  benefits  of  MACS  training  exceed  the  costs 
associated  with  its  use. 


Hardware  Design 

All  MACS  hardware  originally  consisted  of  off-the-shelf  components,  except  for  the 
light  pen  and  light  pen  mount  for  the  M16A1  rifle.  These  latter  two  items  were  designed 
for  the  JMACS  project  by  engineers  at  the  Naval  Training  Systems  Center. 

Microcomputer 

Although  the  Apple  II  series  of  microcomputers  had  been  used  in  early  MACS 
prototypes,  the  Commodore  64  microcomputer  was  selected  later  for  its  lower  cost  and  its 
additional  built-in  features  that  included  sprite  graphics,  a  cartridge  port,  and  light 
pen/joystick  ports.  It  should  be  noted  that  the  Commodore  64  is  no  longer  manufactured. 
This  model  was  replaced  with  the  Commodore  64C,  which  has  been  found  to  be  fully 
compatible  with  the  original.  However,  it  would  be  possible  to  adapt  almost  any 
microcomputer  having  graphics  for  MACS  use,  given  a  light  pen  interface  and  compatible 
software. 

Monitor 

A  Commodore  13-inch  color  monitor,  the  most  current  model  being  the  1802,  is 
recommended  for  the  MACS  M16A1  rifle  system.  A  monitor  having  this  screen  size 
provides  for  the  proper  scaling  of  computer-generated  targets  when  viewed  at  a  distance 
of  10  ft  (3.05  m).  If  larger  monitors  are  used,  the  distance  to  the  screen  should  be 
increased  accordingly.  However,  the  light  pen  has  not  been  tested  for  accuracy  beyond  a 
distance  of  25  ft  (7.62  m).  In  reality,  many  color  monitors  or  televisions  having  a  degausser 
and  microcomputer-compatible  cable  could  oe  used. 

Program  Cartridge 

MACS  M16A1  rifle  software,  written  in  a  combination  of  BASIC  and  6510  assembly 
language,  is  adapted  for  use  with  an  erasable  programmable  read  only  memory  (EPROM) 
cartridge  that  is  inserted  in  the  cartridge  port  of  the  Commodore  64/64C  microcomputer. 
The  primary  advantage  of  cartridge-based  software  is  that  it  eliminates  the  need  for,  as  well 
as  the  cost  of,  a  disk  drive  in  the  hardware  configuration.  In  addition,  it  speeds  program 
loading  and  eliminates  the  need  for  typing  loading  commands  on  the  microcomputer 
keyboard.  Although  a  variety  of  program  cartridges  have  been  developed,  the  one  for  basic 
rifle  marksmanship  training  uses  three  EPROM  microchips  (32k  bytes  x  8  bits  each).  All 
MACS  cartridges  consist  of  a  plastic  housing,  a  bank  switch  board  with  four  sockets,  and 
the  EPROMs  themselves.  Obtained  from  the  Jason-Ranheim  Company  of  Auburn, 
California,  the  components  required  for  one  basic  rifle  marksmanship  cartridge  are  one 
#PCCH-2  housing,  one  #PCC-4  bank  switch  board,  and  three  #27256  EPROMS  (either 
12.5  or  21  V).  When  the  bank  switch  board  is  used  with  32k  EPROMS,  as  is  the  case  with 
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the  basic  rifle  marksmanship  cartridge,  simple  modifications  must  be  made  to  the  board  in 
accordance  with  instructions  provided  by  Jason-Ranheim. 

Light  Pen 

A  key  component  of  the  MACS  system  is  its  long-distance  light  pen  (patent  pending), 
developed  for  the  JMACS  project  by  the  Advanced  Simulation  Concepts  Laboratory  of  the 
Naval  Training  Systems  Center.  This  light  pen,  like  all  light  pens,  operates  by  detecting  a 
scanned  dot  of  light  on  the  microcomputer’s  monitor.  The  instant  the  scanned  dot  of  light 
is  detected,  a  voltage  pulse  is  transmitted  from  the  light  pen  to  the  microcomputer. 
Because  the  microcomputer  controls  the  scanned  dot  movement,  it  can  then  determine  the 
position  on  the  monitor  where  the  light  pen  is  pointed.  The  Naval  Training  Systems  Center 
long-distance  light  pen,  unlike  other  light  pens,  focuses  the  image  of  the  scanning  beam  on 
its  photodetector  with  a  dual-lens  telescope,  which  has  a  focal  length  that  limits  the  area 
that  can  be  detected  on  the  face  of  the  monitor.  The  telescope  permits  the  light  pen  to 
operate  at  distances  from  the  monitor  that  are  far  greater  than  those  of  ordinary  light 
pens.  Specifically,  the  long-distance  light  pen  has  been  tested  successfully  in  the  laboratory 
at  distances  up  to  25  ft  (7.62  m).  Compared  with  the  single-lens  light  pen  used  in  earlier 
MACS  prototypes,  the  use  of  two  lenses  also  allows  the  overall  length,  as  well  as  the 
weight,  of  the  light  pen  to  be  reduced  by  approximately  one  third. 

Unique  to  the  design  of  the  Naval  Training  Systems  Center  light  pen  is  its  signal 
amplification  and  noise  reduction  circuitry  (see  Figure  2).  Its  photodetector  diode  (shown 
as  D1  in  Figure  2)  is  a  current  generator.  A  transimpedance  amplifier  (Al)  produces  a 
small  signal  as  its  output.  The  signal  at  Al  is  the  product  of  the  diode  current  and  the 
resistor  at  Rl.  This  very  small  signal  is  then  filtered  and  AC-coupled  to  the  first  amplifier 
stage  (A2).  The  signal  from  Al  is  filtered  by  a  second-order  high-pass  butterworth  filter 
(Bl).  Designed  to  have  a  cut-in  frequency  of  about  14  kHz,  this  filter  removes  any  noise 
generated  by  the  power  supply  or  by  ambient  light  sources.  Any  noise  sources  below  1  kHz 
are  reduced  significantly  by  a  factor  of  about  40  decibels.  Next,  the  signal  is  amplified  by 
a  simple  two-stage  amplifier  (B2  and  B3).  The  amplified  signal  is  now  at  a  level  of  about 
1  to  3  V,  depending  on  screen  brightness.  Finally,  the  signal  is  applied  to  the  final 
operational  amplifier  (B4),  which  is  used  as  a  voltage  comparator.  The  threshold  level  is 
set  by  a  potentiometer  (R13).  The  comparator  is  used  to  switch  from  5  VDC  to  0  VDC 
upon  detecting  the  scanned  electron  beam  from  the  monitor.  The  output  of  B4  is  normally 
high.  When  the  amplified  signal  from  the  photodetector  is  greater  than  the  present 
threshold  on  the  comparator,  the  comparator  will  go  low.  When  observed  with  an 
oscilloscope,  the  output  of  the  light  pen  appears  as  a  periodic  pulse  train,  with  pulses  going 
from  a  logical  one  to  a  logical  zero. 

Subsequent  to  the  completion  of  the  JMACS  project,  the  Naval  Training  Systems 
Center  modified  the  circuitry  of  the  light  pen  slightly  (see  Figure  3).  These  design 
improvements  were  found  to  improve  its  output  signal  stability  and  ease  of  calibration. 
Documentation  related  to  the  design  of  the  light  pen’s  circuit  board  and  mechanical 
drawings  of  the  light  pen  housing  are  on  file  at  the  Advanced  Simulation  Concepts 
Laboratory  of  the  Naval  Training  Systems  Center. 
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Figure  2.  Schematic  of  the  Naval  Training  Systems  Center  long-distance  light  pen 
(5  VDC  power  supply). 
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Figure  3.  Schematic  of  the  Naval  Training  Systems  Center  improved  long-distance  light 
pen  (5  VDC  power  supply). 


6 


The  Naval  Training  Systems  Center  also  designed  a  light  pen  mount  for  the  M16A1 
rifle.  Made  of  anodized  aluminum,  the  mount  is  designed  to  position  the  light  pen  above 
the  barrel  and  in  front  of  the  front  sight  assembly.  Although  the  mount  is  connected  to 
the  bayonet  stud,  to  prevent  rotation  around  the  barrel,  it  does  permit  the  light  pen  to  be 
aligned  with  the  sights  in  both  the  vertical  and  horizontal  axes.  Mechanical  drawings  of  the 
light  pen  mount  for  the  M16A1  rifle  are  on  file  at  the  Advanced  Simulation  Concepts 
Laboratory  of  the  Naval  Training  Systems  Center. 

Rifle  and  Trigger  Switch 

Demilitarized  M16A1  rifles  were  obtained  from  the  Anniston  Army  Depot  for  the 
JMACS  project.  Retaining  their  metallic  lower  receivers,  these  rifles  offered  greater 
durability  and  realism  than  previously  used  mock-up  rifles  whose  lower  receivers  were 
made  of  injection-molded  plastic.  Within  the  upper  receiver  of  each  demilitarized  rifle 
an  Arrow  Hart  single-pole  single -throw  switch  (model  #83090-C)  was  installed  in  an 
opposing  position  to  the  trigger  in  the  lower  receiver.  Complete  documentation  on  the 
trigger  switch  and  its  wiring  has  been  provided  in  an  earlier  report  (Hunt  et  al.,  1987). 


Software  Design 

MACS  software  for  Basic  Rifle  Marksmanship  (BRM)  training  evolved  over  a  period 
of  several  years,  as  did  MACS  hardware  in  general  (see  Evans,  1988).  The  version  of 
MACS  BRM  software  that  was  used  in  the  JMACS  project  introduced  several  features  that 
had  not  been  available  in  earlier  versions.  This  fourth-generation  software  featured  ten 
levels  of  instruction,  arranged  in  an  ascending  hierarchy  of  difficulty.  After  an  initial  skill 
test  determined  the  most  appropriate  starting  level  for  each  firer,  the  program  branched 
automatically  between  levels  based  on  firer  performance.  The  amount  and  type  of 
performance  feedback  also  was  geared  to  firer  performance  and  instructional  level,  with 
performance  feedback  maximized  in  the  earlier  levels  and  gradually  decreased  at  the 
higher,  more  difficult,  levels.  Seven  major  types  of  performance  feedback  were  featured 
in  this  software: 

1.  crosshairs  indicating  the  location  of  hits  and  misses 

2.  descriptive  diagnostic  scores  based  on  normative  performance  standards  for 
various  marksmanship  fundamentals 

3.  an  animated  replay  of  a  shot  comparing  the  firer’s  actual  sight  picture  with 
the  correct  sight  picture 

4.  a  screen  border  that  changed  color  when  performance  standards  were  not 
met 


5.  a  whistle  sound  indicating  the  failure  to  fire  within  a  prescribed  time  limit 


6.  summary  tables  of  the  number  of  hits,  misses,  and  "no  fires"  obtained  at 
each  target  range 

7.  delayed  recall  of  the  locations  of  previously-fired  shots,  shown  as  a 
collective  group  of  shots  at  each  target  range. 

This  performance  feedback  package,  together  with  associated  internal  performance 
standards,  made  self-paced  MACS  instruction  possible  for  the  first  time.  In  addition  to 
its  evaluation  in  the  Navy  and  Air  Force  as  part  of  the  JMACS  project  (see  Evans,  1988; 
Heller  &  Evans,  1989),  the  fourth-generation  software  also  was  evaluated  for  its  training 
effectiveness  in  two  subsequent  U.S.  Army  Infantry  Board  (USAIB)  Concept  Evaluation 
Program  (CEP)  tests  (USAIB,  1987,  1988).  With  the  exception  of  the  BASIC  program 
listing  and  accompanying  6510  assembler  source  code,  which  is  presented  in  Appendix  A, 
detailed  documentation  of  this  software  has  been  presented  in  an  earlier  report  (Hunt, 
Broom,  &  Greene,  1988). 

Recently  a  fifth  generation  of  MACS  software  was  developed,  largely  in  response  to 
shortcomings  identified  in  the  aforementioned  tests  and  in  later  research  (Broom  et  al., 
1989).  While  similar  to  fourth-generation  software  in  most  respects,  the  fifth-generation 
software  for  BRM  training  differed  in  four  areas.  First,  the  diagnostic  performance 
measures  were  revised  to  make  them  more  sensitive  to  small  firing  errors  and  more 
consistent  with  the  marksmanship  fundamentals  taught  in  U.S.  Army  BRM  training. 
Second,  many  new  information  screens  were  added  to  enhance  student  understanding  of 
program  features  in  less-than-ideal  training  environments ,  where  knowledgeable  instructors 
may  be  unavailable  in  sufficient  quantity.  Third,  one  instructional  level  was  removed  from 
the  program  because  its  performance  feedback  was  found  to  be  confusing  to  some  students. 
Fourth,  optional  instructional  programs  requiring  the  use  of  joysticks  were  revised  so  that 
the  same  concepts  could  be  taught  without  the  need  for  joysticks  in  the  MACS  hardware 
configuration.  Complete  documentation  of  fifth-generation  software  has  been  presented 
separately  (Broom  et  al.,  1989).  A  trainer’s  guide  to  accompany  this  software  also  has  been 
developed  (Purvis  &  Wiley,  1989). 


Lessons  Learned  in  Hardware  and  Software  Development 

In  addition  to  previously  mentioned  specific  improvements  in  light  pen  and  software 
design  initiated  as  a  result  of  product  testing  and  user  feedback,  several  general  lessons 
were  learned  during  the  course  of  hardware  and  software  development  that  should  be  of 
interest  to  others  working  in  the  area  of  marksmanship  simulation.  First,  simulated  recoil 
was  not  incorporated  into  the  MACS  hardware  configuration,  despite  the  belief  by  some 
instructors  that  it  is  an  important  feature  of  any  rifle  marksmanship  simulator.  Consistent 
with  earlier  findings  in  the  areas  of  classical  conditioning  and  simulator  fidelity,  subsequent 
experimentation  found  that  MACS  performance  did  not  vary  as  a  function  of  recoil  (Evans, 
1989).  Evans  (1989)  concluded  that  the  accurate  reproduction  of  recoil  may  be  unnecessary 
in  rifle  marksmanship  simulation,  particularly  if  simulation  is  used  in  conjunction  with  live 
firing  in  an  overall  training  strategy.  In  the  case  of  MACS,  it  is  estimated  that  the  addition 
of  recoil  would  at  least  double  the  cost  of  the  system,  with  no  expectation  of  any  greater 
training  effectiveness.  Similar  reasoning  precluded  the  development  of  a  realistic  firing 
noise  feature  for  MACS,  though  this  issue  was  not  investigated  experimentally. 
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Another  lesson  learned  was  that  some  software  features  commonly  found  in  video 
arcade  games  can  dramatically  increase  student  interest  and  system  usage.  For  example, 
a  software  routine  allowing  high  scorers  to  enter  and  display  their  initials  was  introduced 
in  a  five-target  demonstration  program  used  in  MACS  briefings  and  exhibitions.  Prior  to 
the  introduction  of  the  high  scorer  routine,  most  users  would  only  fire  the  program  once 
or  twice,  which  was  sufficient  to  become  tamiliar  with  the  major  capabilities  and  features 
of  the  MACS  rifle  system.  After  the  introduction  of  the  high  scorer  routine,  however,  many 
users  could  be  observed  firing  the  program  repeatedly  (sometimes  dozens  of  times)  without 
any  evidence  of  boredom.  Due  to  the  increased  system  usage  and  apparent  competitive 
interest  that  resulted  from  the  introduction  of  the  high  scorer  routine  in  the  demonstration 
program,  a  "top  gun"  routine  for  high  scorers  was  added  to  the  fifth-generation  software  for 
basic  rifle  marksmanship  training  (Broom  et  al.,  1989;  Purvis  &  Wiley,  1989). 

Finally,  it  was  learned  that  user  acceptance  sometimes  can  be  influenced  more  by 
organizational  factors  than  by  factors  solely  related  to  the  hardware  and  software  features 
of  a  system.  This  was  most  apparent  in  a  pair  of  U.S.  Air  Force  training  effectiveness 
evaluations  conducted  by  Butzin  as  part  of  the  JMACS  project  (cited  in  Evans,  1988).  In 
these  evaluations,  a  questionnaire  administered  to  two  groups  of  instructors  yielded  quite 
different  opinions  of  MACS.  Specifically,  instructors  in  a  one-week  training  program  with 
a  relatively  low  student  throughput  held  much  higher  opinions  of  MACS  hardware  and 
software  features  than  did  instructors  in  a  one-day  training  program  having  a  relatively  high 
student  throughput.  This  disparate  finding  was  largely  attributable  to  the  greater  difficulty 
instructors  in  the  one-day  program  experienced  finding  available  time  to  integrate  MACS 
training  with  their  existing  training. 


Commercial  Availability  and  Product  Utilization 

The  U.S.  Army  Research  Institute  and  the  Naval  Training  Systems  Center  jointly 
provided  25  MACS  systems  to  the  Army  (5  systems),  Navy  (10  systems),  and  Air  Force  (10 
systems)  for  evaluation  as  part  of  the  JMACS  project.  Since  the  conclusion  of  the  project, 
these  systems  have  been  used  for  training  within  each  service.  Using  the  Naval  Training 
Systems  Center’s  light  pen  design,  the  Fort  Gordon  Training  Support  Center  assembled 
over  100  additional  MACS  systems  to  support  subsequent  Army  testing  (USAIB,  1987, 
1988).  Since  the  conclusion  of  this  testing,  these  systems  also  have  been  used  in  training 
at  the  U.S.  Military  Academy  and  Forts  Benning,  Jackson,  Richardson,  and  Wainwright. 
Several  of  these  systems  were  also  used  to  support  informal  evaluations  by  services  within 
allied  nations  and  by  other  U.S.  Army  organizations. 

Due  to  continuing  interest  in  MACS  technology,  the  U.S.  Army  has  assembled  and 
fielded  over  300  production  systems,  at  the  present  time,  to  requesting  units  and  schools 
through  the  Fort  Benning  Training  Support  Center.  These  production  systems  were  the 
first  MACS  systems  in  which  all  hardware  components  were  obtained  commercially.  The 
Fort  Benning  Training  Support  Center  developed  contract  specifications  necessary  to  obtain 
preassembled  light  pen,  mount,  and  replica  M16A1  rifle  packages,  with  the  light  pen  based 
on  the  Naval  Training  Systems  Center  circuit  design  (see  Figure  2).  Two  commercial  firms 
have  manufactured  these  packages  to  date:  the  BETAC  Corporation  of  Arlington,  Virginia, 
and  Firearms  Training  Systems  (FATS)  of  Norcross,  Georgia.  Commodore  64C 
microcomputers  and  1802  monitors  were  obtained  commercially  on  the  open  market.  All 
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program  cartridge  components  were  obtained  from  the  Jason-Ranheim  Company  of 
Auburn,  California. 

At  a  total  cost  of  $950  per  system  (plus  shipping)  to  requesting  units  and  schools,  the 
Fort  Benning  Training  Support  Center  obtains  all  MACS  hardware  commercially,  performs 
quality  control  checks  on  the  equipment,  duplicates  a  MACS  BRM  program  cartridge  from 
a  master  set  of  fifth-generation  EPROMs  (Broom  et  al.,  1989),  prints  a  trainer’s  guide 
(Purvis  &  Wiley,  1989),  and  then  prepares  the  completed  system  for  shipping.  The  Fort 
Benning  Training  Support  Center  also  has  Spanish  language  versions  of  the  MACS  BRM 
program  and  trainer’s  guide  on  file,  with  translation  having  been  provided  by  the  U.S.  Army 
School  of  the  Americas. 
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Appendix  A 

BASIC  Program  Listing  and  6510  Assembler  Source  Code  for 
Fourth-Generation  Basic  Rifle  Marksmanship  Software 
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10  POKE  101,237 : V-5324* : POKE  53201. OsPOKE  V+21,0:B$-"  SL-1 : EL-10 
20  DIM  SDI  (25.  3)  ,  CPI  (9,  3) ,  HI  (!) ,  DAI  ( 6, 1 0)  : 11-43640  : 12-439*4 :NU-0  ;  E2-0  :CS-0 
30  DEF  FNH{X)-INT (X/256) :DEF  FNL(X) -X-INT (X/256) “256 

40  DEF  FNW (X) —PEEK (X) +PEEK (X+l) *256 : DEF  FNZ (X) -IHT ( (AB5 (X>0) *X) + . 5) :C-2 
45  POKE  56579, 143  .-POKE  56577,0 

SO  RK-256 : EN-3400 :DS-3403:RT-3406:SV-3409:BANG— 3415 :SC-3421 ;DV-3430: LC-3433 
60  GP-3436:C03439:MH-3442:  *1-3445 
70  GET  A$ : IF  AS-""  THEN  70 

•0  IF  AS-"  "  THEN  POKE  532*0,0: SYS  DS ■ GOTO  130 

90  IF  AS-"m"  THEN  SYS  D3:GOSUB  3030: GOTO  130 

100  B$— RIGHTS (B$, 1 ) +AS : IF  (B$<>"c*")  AND  (B$<>"pf")  THEN  70 

110  E-l : IT  BS-"pf"  THEN  2-2 

120  SYS  DS :POKE  53265, 27 : POKE  53272, 23  SPRINT" (CLR)"; :POKE  49161, 2:SYS  45179 
130  IF  RX<256  THEN  210 

140  AS— "  (F3  )09(F6)00(F5)0C(F7)00{CLR)  { LBLU)  (P2)  0504  (PI  (Welcome  to  { RED ) MACS ( LBLU MF3) 00": GOSUB  2*30  iBCS-"  (f  6)  00 

150  POKE  532*1, 0:FOR  1-0  TO  9:FOR  J-0  TO  3 : READ  CR6 (I, J) :NEXT  J, I 

160  TOR  1-1  TO  6 :FOR  J-0  TO  4 :R£AD  DAI  (I.  J)  (NEXT  J, I 

170  2-0: SB-15 :GOSUB  5240:RK-2 

1*0  IF  RK-0  THEN  210 

190  POKE  S3265, 27 :POKE  53272, 23 : INPUT" (CLR JDate"; AS : IOS-LEFTS (AS, •  > +CHRS (13) 

200  INPUT"Unit"; AS : IOS-IOS+LEFTS ( AS , 20 > +CHRS (13) 

210  Sl-3276*  :S2-10  :POK£  929,  0  :CL-0  :MO$-"a" :  GOSUB  1000:IF  CL>EL  THEN  CL-EL 

220  IF  CL<SL  THEN  CL-SL 

230  GOSUB  2950; IF  CL-0  THEN  210 

240  IPOII  AND  16)  THEN  NI-INT  (RND(l)  *5)  :WI-16+  (  (NI-  (HI— 4)  *2)  )  ♦  (INT  (RND  (1) ••) *32) 

250  POKE  929, NI :ON  CL  GOSUB  14*0,14*0,16*0,16*0,1990.1990,1990,1990,1990,2330 
260  MO$-"a":IF  (CL<-EL)  AND  (SL<>EL)  THEN  220 

270  AS*" (F3 ) 09 (F6) 05 (CLR) (F5 ) 05 (F7 } 05 (BLK ) {F2 ) 0502 (FI ) CONGRATULATIONS  IF*} {F8 }  You  are  finiihed(F8)  with  thia 
2*0  AS-AS+"program. (F*) (F«)  Call  instructor . (FI ) (F2}0723Pr#aa  SPACEBAR  to  continue (F3) 00" 

290  GOSUB  2*30: CL-0: POKE  19*, 0 : RESTORE : GOTO  70 
1000  IF  RK-0  THEN  1020 

1010  POKE  53272, 23:P0KE  53265,27 : INPUT" (CLR) (WHT)Firer  ID  IDS : IDS-LEFT* ( IDS, 20) 

1020  POKE  2040, 34 : POKE  2047,37:POKE  V+14,lQ:POKE  V+1S , 130 : POKE  V+39,0 

1030  POKE  V+46, 12 :POKE  V, 21: POKE  V+1.145:POKE  V+16, 129 :POKE  V+23,0:POKE  V+29,0 

1040  POKE  53265, 43:A$-"(F6)00(F5)13(F7)00(CLR} (F1HBLK) (F2)0701The  following(F2  )  0103target  ■  are  untimed" 

1050  A$-A$+"(F*HF8)  Aire  at  the(F*)  center  of  tha{F*|  target  aa{F*)  the  black  dot{F*J  ahowa(Fl)" 

1060  TN— 0 : POKE  V+21 , 129 : AS-AS+" (F2 ) 0723<Pull  trigger  to  continue> (F3 } 00": GOSUB  2*30 
1070  IF  PEEK (56321) -24 7  THEN  1100 
10*0  GET  AS: IF  AS<>"#”  THEN  1070 
3  090  TN— 1 

1100  POKE  *99,42 :POK£  **3,60:POKE  *38,0:FOR  Z-834  TO  *37:POKE  Z.0:NEXT  Z 
1110  OX-O : OY— 0 : POKE  *3*,0:POKE  *«9,0:POKE  *90,160:POKE  I91,40:POKE  892,180 
1120  POKE  *23,0: POKE  *24.0:POKE  *21,17:POKE  *22, 0 : SB-6 : GOSUB  5230:S-0 
1130  IF  (SOO)  AND  (SOS)  THEN  1150 

1140  FOR  Z-0  TO  3 : SDI <  2  5 ,  Z )  — 0  : NEXT  Z :PS-INT (S/3) : GOSUB  2750:GOSUB  2840 
1150  POKE  *76,0: POKE  *77,205:X-( (INT (RND (1) *7S))*2)*?i:IF  TN  THEN  X-165 
1160  POKE  524*1, X:GOSUB  2810 

1170  Z— 20352: SB-0 ;GOSUB  S240:POKE  V+21, 0: IF  2-128  THEN  1150 
1180  IF  S<3  THEN  OX-OX+ ( (X+ll ) «FNW(847) ) :OY-OY+ (165-FNW (B49) ) 

1190  N-FNW(907) : N-N* (N>12*) • (N-l 29) ;GOSUB  2500:SD4(S, 0) -FNZ ( 100-SD*C) 

1195  SDI (25, 0) —SDI (25,0) +SDI (S, 0) 

1200  GOSUB  2540 : SDI (S, 1 ) —FNZ (100-SD*C) : SDI (25. 1 ) -SDI (25, 1) +SDI (S. 1 ) 

1210  GOSUB  25*0 :SDI (S, 2) —FNZ (lou-SD*C) :SDI (25, 2) -SDI (25,2) +SDI (S.2) 

1220  GOSUB  2*10 : IF  S<>2  THEN  12*0 

1230  OX— INT ( (OX/ 3) +1 ) :OX-INT (OX/2 ) -2 :OY-INT ( (OY/3) +0 . 5) 

1235  X-OX-(OX<0) *65536: Y-OY- (OY<0) *65536 

1240  POKE  *34.FNL(X) :POKE  *35. FNH (X) : POKE  *36, FNL(Y) : POKE  I37,FNH(Y) 

1250  POKE  7*5,  FNL(LC)  .-POKE  ?|6,FNH(LC) 

1260  FOR  Z-0  TO  2 : SD-USR (Z+12*) :SDI (Z, 3)-FNZ (100-SD*C) 

1270  SDI (25,3) -SDI (25,3) +SDI (Z, 3) : NEXT  Z :Z-4 3640 : GOSUB  4570:IF  Z-12*  THEN  1100 
12*0  S-5  +  1 : IF  S< 6  THEN  1130 

1290  POKE  53265, 43:POKE  7*5, FNL(LC) : POKE  7*6,FNH(LC) 

1300  FOR  Z-3  TO  5 :SD-USR (Z) :SDI (Z. 3)-FNZ (100-SD-C) :SDI (25, 3) -SDI (25, 3) +SD6 (Z. 3) 

1310  NEXT  Z:Z-43664: GOSUB  4570: IF  Z-12*  THEN  1100 
1320  N— 6 : T— 0 : GOSUB  4920 

1330  PS-0 :B-0:E-2: GOSUB  2900: IF  (Z-0)  OR  (EL<2)  THEN  CL-1: RETURN 
1340  PS-1 :B-3:E-5: GOSUB  290Q:IF  (Z-0)  OR  (EL<3)  THEN  CL-2 : RETURN 

1350  AS-"(r3)09(F5>00|F7)00(CLRMFlHLBLUHF2)0703The  following ( F2 ) 0306targeta  are  timed ( F2 )  121 1ASSUME  A" 

1360  AS— AS+"(F21  UNSUPPORTED  (F2)1217POSITION  (FI)"  :GOSUB  2790:GOSUB  5220 
1370  POKE  *31, 0 :POKE  **9,0:POKE  *90,160:POKE  *91,40:POK£  <92,180:POK£  *76,0 
13*0  POKE  *77, 205:POKE  *23,17:POKE  *24,0;POKE  *21,114:POKE  *22, 0 : SB-6 :GOSUB5230 
1390  POKE  *99, 1 : GOSUB  2*40:B-0:E-2:T-1 
1400  FOR  S-B  TO  E 

1410  SB-0 :Z— 203 52: GOSUB  5240: POKE  V+21,0 

1420  ir  (Z>63)  THEN  SYS  WH:FOR  Z-0  TO  3: SDI (S, Z)— 0 :NEXT  Z : GOTO  1440 
1430  N— FNW (907) :N-N+ (N>12*) * (N-l 2*) : GOSUB  2600 

1440  GOSUB  2*10 :  NEXT  S:  COSUB  2900:  IF  (ZOO)  AND  <EL>(T+2)J  THEN  1460 
1450  N-6 : GOSUB  4920 :CL-T+2 : RETURN 

1460  T— T+l : IT  T-2  THEN  PS-l:GOSUB  2750:GO5UB  2*40 : B-3 :E-5 : GOTO  1400 
1470  N-6: GOSUB  4920 : CL-5 : RETURN 

14*0  NT-3 : PS-CL-1 : GOSUB  2750:GOSUB  5220:POK£  *76,0:POK£  *77,205:POKE  **9,0 
1490  POKE  *90, 160:TN-0 :POKE  *91,40:POKE  *92.1*0:POKE  131,0: POKE  *99,1 
1500  IF  (EZ-0)  OR  (CLOl)  THEN  1530 

1510  FOR  Z-0  TO  NT*6-l:POKE  16325+Z, 4 :NRXT  ZtPOKE  16325+NT*6, 255 
1520  POKE  *21, 0:POKE  *23,114:POKE  *24, 0: SB-3 : GOSUB  S230:GOTO  1540 
1530  POKE  *23, 114 : POKE  *24,0:POKE  *21,225:POKE  *22, 0: SB-6: GOSUB  5230 
1540  Sl-3276* :S2-10jIR— 32640- <CS*4096)  :H-0  :TN-THU  iRp-0 :  IF  TN-7  THEN  1670 
1550  GOSUB  2630 

1560  S— FEEK (636) : GOSUB  2*40:A|-"L-"+STR* (CL) |T-"+STR* (S+l) ♦" |R-"+STR* (RP) 

1570  GOSUB  5100 : POKE  12+7+SM, RP:X- ( (INT  <RND(1)  *65) )  *2) +71 :  AD-FNW (*76) 

1510  POKE  AD+ 1 , X : Y— PEEK (AD+2 ) : POKE  AD+6, 255 :TJ-PEEK (AD+11) :TJ-TJ+ (TJ>127) *256 
1590  IF  (TN-1)  AND  ((EZ-0)  OR  (CLOl))  THEN  POKE  AD+1S,X+4*:P0KE  AD+20,255 

1600  GOSUB  34*0: SB-0 :Z-1R: GOSUB  5240:POKE  *71,0: IF  Z-12*  THEN  1670 

1601  IF  CS-0  THEN  1620 

1602  Af— " (F2) 0423 (BLK) {SNLCJ (FI ) Call  your  ahot :":Zl-TI+3$9 

1603  Z2— INT  ( (Zl-TD/60)  :A$-A*4" (F2|3423"+STR* <Z2)  sOOSUB  2*30  :A$-"  (FI ) " 

1604  IF  *2>0  THEN  1603 

1605  POKE  V+21, PEEK (V+21)  OR  1 
1620  IF  PEEK (900) <12*  THEN  H-H+l 
1630  GOSUB  3500: IF  S-12S  THEN  1670 

1640  S-S+l:ir  S/30INT (S/3)  THEN  POKE  *76.  HI (2)  : POKE  *77, HI  (3)  : GOTO  1560 

1650  M— 3:2-1 1+HI(1) **: GOSUB  40*0:ZF  H>1  THEN  BC-0:GOTO  1540 

1660  GOSUB  2650:  IR— 31616- (CSM096)  :RP-RP+1 :H-0 : GOSUB  50*0:GOTO  1560 

1670  POKE  V+21,0 sOOSUB  3?60:GO3UB  4920: CL-CL+A : RETURN 

16*0  RF— 0 : PS— CL-3 : NT— 4  : GOSUB  2730:POKE  53265,  43 ; GOSUB  5220 :  IR— 32640 

1690  B-0 : E-NT* 6- 1 : GOSUB  3*90 

1700  AD-11 : FOR  Z-l  TO  NT* 6: POKE  AD, 255 : AD-AD+* : NEXT  Z :Sl-37445 : S2-10 
1710  FOR  Z-B  TO  EiFOKE  16325+Z, INT (PEEK (16325+Z) /NT) : NEXT  Z:FOR  Z-l  TO  6 
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1720  Ml(l,  5)-0:DA%(Z,  6)-0:NEXT  Z :  FOR  Z-Il  TO  11+199  STEP  8:POKE  Z.OtNEXT  Z 

1730  POKE  <21, 0 : POKE  823,U4:POKE  <24,0: SB-3 :GOSUB  5230:POKE  876,0:POKE  <77,205 

1740  I— 0 : GOSUB  2<40 

1750  I-I+1:IF  I>NT*6  THEN  1790 

1760  GOSUB  4370: POKE  V+21. 0: IF  Z-12<  THEN  1930 

1770  ir  Z-64  THEN  SYS  NH 

17<0  GOTO  1750 

1790  rOR  TN-1  TO  6:Z-I1+ (TN-1) *32 :N-4 :GOSUB  4080:NEXT  TN 
1<00  POKE  53265, 43 : RP-RP+1 : ER-0 : TN-1 
1<10  Z1-3:IF  { C L— 4 ) AND ( TN >4 }  THEN  Zl-2 
1<20  IF  DA% (TN, 5) >— Z1  THEN  1910 

1<30  ER— 1 : IR— 31616 : POKE  <21.0:POK£  <23,114:POKE  <24,0:GOSUB  S0<0 
1<40  AD-I1+ (TN-1) *32 :FOR  Z-l  TO  4:POKE  AD. 25$ : AD-AD+8 : NEXT  Z 

1950  FOR  2-0  TO  NT-l:POKE  16325+Z, TN-1 :NEXT  Z:POKE  16325+NT, 255 : SB-3 : GOSUB  5230 
I960  POKE  <76,0: POKE  <77, 205 : DAI (TN, 5) -0 :DA% (TN, 6) -0 : GOSUB  2940 
1970  GOSUB  4370 :POK£  V+21,0tIF  Z-129  THEN  1930 
1M0  IF  Z-64  THEN  SYS  NH 

1990  I— FNL( 1+1 ) : IF  DA%(TN,6)<NT  THEN  1970 
1900  2—11+ (TN-1) *32 :N-4 : GOSUB  4090 
1910  TN-TN+1 : IF  TN<7  THEN  1910 
1920  IF  ER  THEN  1900 

1930  POKE  V+21, 0 :FQR  J-0  TO  3 :SD% (25, J)-0 :NEXT  J 

1940  N-0 : FOR  TN-1  TO  6: IF  DA%(TN,6)-0  THEN  1970 

1950  FOR  1-1  TO  DAI (TN, 6) :S-(TN-1) *NT+ (1*1) :N-N+1 

1960  FOR  J-0  TO  3 : SD% (25, J)-SD% (25, J) +SDI (S, J) :NEXT  J, I 

1970  NEXT  TN : A-0 : BC— 0 : IF  N>0  THEN  GOSUB  3790 

1990  GOSUB  4920: CL— CL+A : RETURN 

1990  PS-0 : GOSUB  2750:GOSUB  5220 : RP-0 : IR-512 

2000  Sl-39042 : 32-1 : IT  CL>7  THEN  SI-37968 : S2-3 

2010  POKE  5326S,43:B-0 : E— 15 : GOSUB  3<90:POKE  876,0:POKE  977,205:POKE  899,0 
2020  POKE  990,160: POKE  891,40:POKE  892,1<0:POKE  938,0:POKE  899,20:POKE  910,0 
2025  POKE  933,0: POKE  934,0 

2030  POKE  912, 0:TN-0: POKE  821,0:POKE  923,225:POKE  824, 0 : SB-3 : GOSUB  5230 

2040  GOSUB3950  :A-Z  : POKE  12+7, RP : HI-0 : N-PEEK < 838) : IF  (N-0)  AND  (A0128)  THEN2080 

2050  AS-" (F3 ) 09{F6 ) 00 ( CLR) (F5)00(F7)00( LBLU ) (F2 ) 0601 SUMMARY :  Supported  Position" : GOSUB  4190 

2060  HI-21 :MI-Z2:NF-Z3:AC-Z4: IF  A-128  THEN  BC-0: GOSUB  4920: RETURN 

2070  FOR  TN-1  TO  6:2-11: GOSUB  4080: NEXT  TN 

2080  IF  HI<15  THEN  IR-1 $36: RP-RP+1 : GOSUB  5080:GOTO  2010 

2090  POKE  881, AC: GOSUB  4920:BC-0 

21LJ  ?N-rL£K(312) : IN-16 : RP-0 : PS-1 :GOSUB  2750:POKE  899,40:POKE  53265, 43 : IR-512 
2110  B-16:E-28: GOSUB  3<90:POK£  976,0:POKE  977,205:POKE  989,176:POKE  <90,164 
2120  POKE  891,184: POKE  <92,181:POKE  <38,20:POK£  910,0:POKE  912,0 
2125  POKE  933, 2: POKE  934,0 

2130  POKE  821, 16: POKE  823,225:POKE  824, 0 : SB-3 : GOSUB  5230:GOSUB  3950:A-2 
2140  POKE  12+167, RP :HI-0 :N-PEEK (838) -20 : IF  (N-0)  AND  (A<>128)  THEN  2180 

2150  AS-" (F3 )09(F6)00(CLR) (F5)00(F7)00( LBLU ) (F2 ) 0 SOI SUMMARY :  Unsupported  Position” : GOSUB  4190 

2160  HI-Z1 :MI-Z2 : NF-Z3 : AC— Z4 : IF  A-128  THEN  BC-0:GOSUB  4920:RETURN 

2170  FOR  TN-1  TO  6 : Z-I 1 +160 : GOSUB  4080:NEXT  TN 

2180  IF  HI<15  THEN  IR-1 536 : RP-RP+1 : GOSUB  5080: TN-1 6: GOTO  2110 

2190  POKE  981 , Z4 : GOSUB  4920 

2200  POKE  V+21 , 0;HI— 0 :MI— 0 :NF-0 : AS— " (F3)09(F6)00(CLR) (F5)00(F7}00{ LBLU ) (F2 ) 1401FINAL  SCORES” 

2210  AS— AS+" (F2 ) 1303 (GRN) Hits (F2 ) 21 99 (RED) Misses (YEIX)) (F2 ) 2999NO  Fires { F8 ) (F8 GOSUB  2830 
2220  FOR  1-1  TO  6 : Z-DA4 (I . 5) +DA% (I. 8) :AS-” ( LBLU) (F2 ) 0599”+STRS (I *50) +” (F2> 1399 ( GRN ) "+STRS (Z) 

2230  HI— HI+Z :Z— DA% (1,6) +DA% (1,9) : AS-AS+" (F2 ) 2299 (RED) "+STRS (Z) :MI-MI+Z 

2240  Z-DAI(I,7)+DAI(I,10) :AS-AS+” (F2 ) 3299 ( YELO) "+STRS (Z) +" (F8 ){ F8 )": NF-NF+Z : GOSUB  2830:NEXT  I 

2250  AS—" (F2 ) 0699 { LBLU ) TOTAL (F2 ) 13 99 (GRN ) ”+STRS (HI ) ♦” (F2 ) 2299 ( RED) ”+STR$ (MI )+”(F2}3299( YELO) "+STR$ (NF) 

2260  AC-INT ( { (AC+Z4 ) /2 ) + . 5 ) ;Z4-AC: Z5-9 : GOSUB  2680 : AS-AS+" (TS ) ( F8 } ( LBLU ) (F2 ) 0699Pen«lties : " 

2270  AS— AS+STRS (PEEK (912) +PN) 

2280  IFPEEK (938) >0  THEN  AS-AS+" (F8 ){F2 ) 0699Your  accuracy  wee  "+RIGHTS (CR$, LEN (CR$) -5) 

2290  AS-AS+ " ( WHT ) " : GOSUB  2790 
2300  IF  E>2  THEN  BC-0 :  CKL+ 1 :  RETURN 

2310  IF  Z-l  THEN  A-(CL>SL) :BC-6-A: CL-CL+A:8$-" (F2 )1499a  poor":GOTO  2320 
2312  BC-6:B$-"(F2) 0599a  below  average" 

2320  AS-* (F3) 09 (CLR) (RED) (FI )(F8 )(F8)  You  are  being  sent (F8) (C/RT)  back  to  level"+STR$ (CL) 

2322  AS-AS+"(r<)  because  you  have(F8)"+BS+"(F8) (F2)0699accuracy  score  (FI  KlfHT) "  .-GOSUB  2790:RETURN 

2330  PS— 0: GOSUB  2750:POKE  53280, 0 : RP-0 iS 1-3 7968 :S2-3 : COSUB  5220:IR-640 

2340  POKE  876, 0 : POKE  977,205:POKE  889,0:POKE  890,160 

2350  TN— 0 : POKE  891,40:POKE  892,190:POKE  <38,0:POKE  999,40:POKE  912.0 

2360  POKE  823, 145  tPOKE  824,3:POKE  921,59:POKE  <22, 6 : SB-6 : GOSUB  5230 

2370  GOSUB  2840 : A$-"L-10 I T-  0 | R-"+STRS (RP) : GOSUB  5100:PORE  933,0:POKE  934,0 

2380  POKE  12+7, RP: SB-0 :Z-IR: GOSUB  5240 :A-Z 

2390  POKE  V+21 , 0 : POKE  53280, 0 :N-PEEK (839) : IF  N-0  THEN  GOSUB  4920:RETURN 
2400  BS-"Supported  Position": IF  PS  THEN  BS-"Unaupported  Position” 

2410  AS—" (F3)09(F6)00(CUI) (F5 )00(F7)00(LBLU) (F2 ) 0601 SUMMARY :  "+B< :N-PEEK( 838) : GOSUB  4710 
2420  IF  A— 128  THEN  BC-0: GOSUB  4920: RETURN 
2430  FOR  TN-1  TO  6 : Z-I li GOSUB  4080: NEXT  TN 

2440  IF  HI<  (23+ABS  (PS-1 )  *5)  THEN  IR-1664 : RP-RP+1  .-GOSUB  5080:GOTO  2340 
2450  BC-0: GOSUB  4920:RP-0:IF  PS-1  THEN  CL-U: RETURN 
2460  PS-1: GOSUB  2750 : IR-640 : GOTO  2340 

2500  POKE  785, FNL(DV) : POKE  786, FNH (DV) : AD-43008+ (S  AND  1)*128 

2510  Nl— '60*  (CL<3 )  -45*  (CL>— 3)  :  IF  (CL-0)  AND  (T>0)  THEN  Nl-45 

2520  IF  N< (Nl+2)  THEN  SD-999:RETURN 

2530  Nl-(N-Nl) +256+ (N-19) : GOTO  2560 

2540  IF  N<18  THEN  SD-999 : RETURN 

2550  Nl— (N-18) *256+ (N-l ) 

2560  POKE  253,FNL(AD) :POKE  254, FNH (AD) jSD-USR (Nl) 

2570  POKE  253,FNL(AD+256) :POKE  254, FNH (AD+256) : 3D-3D+U3R (Nl > : RETURN 
2580  POKE  253, 0 : POKE  254, 170: SD-USR( 262) : POKE  253, 30 : SD-SD+USR (262) : RETURN 
2600  OOSUB  2500 :SD% (S, 0) -FNZ (100-SD*C) : GOSUB  2540 : SDI (S, 1 ) -FNZ ( 100-SD*C) 

2610  GOSUB  2580 :SD% (S, 2)-FN£ (100-SD+C) :POK£  785, FNL(LC) tPOKE  786,FNH(LC) 

2620  SD-USR ( S ) : SD% (3, 3) -FNZ ( 100-5D+C) : RETURN 

2630  H% ( 1 ) —PEEK (938) xH% (2) -PEEK (976) : H% (3) -PEEK (877) :H% (4)-PEEK (889) 

2640  H% ( 5)— PEEK (890) :H% (6) -PEEK (891) :H6 (7)-PEEK (892) :H% (8)-PEEK (899) : RETURN 
2650  POKE  838,K«(1)  :POKE  876, H% (2) :POKE  877,  H%  (3)  :  POKE  «9,Ht<4) 

2660  POKE  890, HI (5) iPOKE  891, HI (6) : POKE  892, HI (7) : POKE  899, H% (8) j RETURN 
2670  S4-8DKS,  J)  :Z5-J+PS*4 

2680  CRS-"(F2) 22 99 (GRN) excellent": £-5: IF  £4<CR8(£$,0>  THEN  CR|-" (F2 ) 3299(BLUE) good" : £-4 

2690  IF  £4<CRI (£5, 1 )  THEN  CRS-" ( F2 1 26 99 (BRN leverage" :£-3 

2700  IT  £4<CR% (£5,2)  THEN  CRS-" (F2 ) 2299 (YELO) below  avg":£-2 

2710  IF  £4<CR% (£5,3)  THEN  CRS— " ( F2 ) 32 99 ( RED ) poor" : £-1 

2720  IF  (CLO0)  OR  (NU-0)  THEN  RETURN 

2730  BS-STRS(Z4) :Z4-LEN(B$) :IF  £4<4  THEN  rOR  £3-1  TO  4-Z4:B$-"  "+B$:NEXT  ZS 
2740  CRS— * (FI ) (F2)2499"+MID8 (CR|, 6. 10) ♦" (F2 ) 3599"+BS+" (FI ) (F8) " : RETURN 
2750  POKE  V+21,0:AS-"(F3)09(CLR) (F6)00(F5)00(NHT) (FI)" 

2760  IF  PS  THEN  A|-A$+"(F2 ) 1108ASSUME  AN(F2 ) 091 1UN" : GOTO  2780 
2770  Af— AI+"(F2) 120BASSUME  A(F2)1111" 

2780  Af-AS+"8UPPORTED(F2)1214POSITION(Fl)" 

2790  AS— A$+"(F2 )0723<Pull  trigger  to  continue>(F3) 00": GOSUB  2830 
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2*00  I F  PEEK  (56321)0247  THEN  2100 
2(10  IF  PEEK (56321) <>255  THEN  2610 
2*20  RETURN 

2(30  AS-AS : SYS  3424: RETURN 

2140  POKE  253,FNL(S1) :POKE  254, FNH(Sl) :POKE  251,S2:SYS  SC: RETURN 
2(50  REM  GET  AVERAGE  ACROSS  B-E  SHOTS  FOR  EACH  DIAGNOSTIC  SCORE 
2(60  POR  12-0  TO  3:SD%(12. Z2)-Q:NEXT  Z2 

2(70  FOR  Zl-B  TO  EiFOR  12-0  TO  3 : SD% (12, 12) -SD% (12, 22) 4SD% (11 , 12) : NEXT  22, El 
2((0  2- (E-B) +1 ; FOR  22-0  TO  3 : SDt (12. Z2) -INT ( (SD% ( 12 , Z2) /Z) 4 . 5 ) : NEXT  22 : RETURN 
2(90  REM  ROUTINE  TO  SEE  ir  SHOTS  B-E  FALL  INTO  RANGE  FOR  ADVANCEMENT 
2900  GOSUB  2(60 : S-12 : J— 3 : GOSUB  26?0:IF  2<>5  THEN  2-0:RETURN 
2910  J— 0 : GOSUB  2670 : 21-1: J-l : GOSUB  2670 

2920  IF  (d<>5)  OR  (21<4))  AND  ((2105)  OR  (2<4)  )  THEN  2-0:RETURN 
2930  J-2: GOSUB  2670: IF  2<3  THEN  2-0: RETURN 
2940  2-1: RETURN 

2950  A$-"(F3)09(F6)00(CLR) (F5}00 (F7) 00 (FI ) ( LBLU ) (F2 )1505LEVEL(F2 ) 1709" :B$-STR$ (CL) :Z-CL4 (CL-10) *10 
2960  IF  CL-10  THEN  BS-" (C/RT) 10" 

2970  AS-AS+BS*" (CRN) (F2 ) 0015" : GOSUB  2(30:POKE  (23,  CL: SB-1 (: GOSUB  5230 

29(0  A(— "(RED) (F2)0723<Pull  trigger  to  continue> (F3 ) 00" : GOSUB  2(30 

2990  IF  PEEK (5 6321) -24 7  THEN  RETURN 

3000  IF  PEEK (56321) 0127  THEN  2990 

3010  GOSUB  3030: IF  CL-0  THEN  RETURN 

3020  GOTO  2950 

3030  POKE  53265, 43:POKE  53272. 31 : POKE  19(, 0:A$-"(F6) 00(F5)00(F7 ) 00(CLR) (CRN) St Art  level:" 

3040  AS— AS4STRS (SL) 4" ( GRY1 ) (F2 } 3399ARI ((06 (GRN) Final  level:"4STR$ (EL) +" (F() (BLUE)Nlnd  speed :  " 

3050  IF  (HI  AND  16)  THEN  A$-A$4"  Variable"; : GOTO  30(0 

3060  A$-A$4STRS( (Ml  AND  7) *5) 4"  MPH  ":IT  ((HI  AND  7)-0)  THEN  30(0 

3070  BS-STRS (INT(MI/32)4l) :85-"0"4RIGHT$ (B$, 1) : AS“A$4" (F4 ) "4B$ 

30(0  A$— A3+" (BLK ) (F( }( F( } " : GOSUB  2(30:POK£  253,SL:POKE  254,EL:POKE  (23. 0: SB-1 (: GOSUB  5230 
3090  AS-" (F() (LBLU)  L:  Select  Start/Stop  Level(Ft)  N:  New  firer(Ft)  N:  Sat  Kind  Spaad{F()" 

3100  B$-"aklll  taat" : IF  CL<>0  THEN  BS-"level"4STRS (CL) 

3110  AS-AS*"  G:  Go  to  F( )( Ft )* 

3120  IF  EZ  THEN  AS-A5+"  ( GRN)  (Laval  1  targets  ara  at  250  meters) (Ft)" 

3130  IF  NU  THEN  AS-AS+" { GRN) (Pretaat  diagnostic  acoraa  ara  nuaaric) (F() " 

3135  IF  CS  THEN  A$-A$+"(GRN) (Call  your  ahot  on  Lavala  1-2)" 

3140  AS-AS+" (F2 ) 0023 (RED)Typa  a  number  or  letter  4  prasa  RETURN(LBLU) (F() (F3) 00": GOSUB  2(30 
3150  AS— GOSUB  5140 : 2-INT (VAL (AS) ) 

3160  IF  (2>— SL)  AND  (2<-EL)  THEN  CL-Z :MO$-"m" : BC-0 : RETURN 

3170  IF  A$-"nu"  THEN  NU-NOT ( NU ) : GOTO  3030 

31(0  IF  AS-"a*"  THEN  EZ -NOT (E2) : GOTO  3030 

31(5  IF  A$-"cs"  THEN  CS-NOT (CS) : GOTO  3030 

3190  IF  A$-"n"  THEN  CL-0 : RETURN 

3200  IF  AS-"g"  THEN  RETURN 

3210  IF  AS<>"1"  THEN  3300 

3220  MO$— "b" : AS— " (F2 ) 1423 (RED) (  praaa  RETURN  (F2) 0024 (BLUE) Start  laval  (1-10)" 

3230  GOSUB  5140 : ZS-AS : SL-INT (VAL(AS) ) : IF  (SL<1)  OR  (SL>10)  THEN  3220 
3240  IT  (CL<SL)  AND  (CL<>0)  THEN  CL-SL 
3250  IF  SL-10  THEN  EWO:GOTO  3030 

3260  AS-" (F2) 0024 ( LBLU JFinal  laval  ("♦Z$+"-10) " :GOSUB  5140:EL-INT (VAL(AS) ) 

3270  IF  (EL<SL)  OR  (EL>10)  THEN  3260 

32(0  IF  CL>EL  THEN  CL-EL 

3290  GOTO  3030 

3300  IF  A$<>"w"  THEN  3420 

3310  A$-"(F3)09(CLR)Hind  Ef facta : (F( ) (F( )Typa  a  number  (1-3)  for  wind  speed: (F() (F( ) " 

3320  AS-AS+"  1:  0  MPH(F()(F()  2:  10  MPH(F(){F()  3:  20  MPH(F( ) (F( ) (F3) 00" :GOSUB  2(30 

3330  AS-"" : GOSUB  5140  :  NI-VAL  (A$)  :  IF  (NI<1)  OR  (lfl>3)  THEN  3330 
3340  NI- (NI-1) *2 : IF  NI-6  THEN  NI-16:GOTO  3030 
3350  IF  Ifl-O  THEN  3030 

3360  A$-"(F3) 09{CLR)Nind  Effects: (F() (F() Type  a  numbar  (l-()  for  wind  direction: (F( )(F( ) " 

3370  AS-AS+"  Is  (F4)01  (No  value)  (F()(F()  2:  (F4J02  (Half  value)  (F( )  (F( )  3:  (F4)03  (Full  vnue)  (Ft)  (F()" 

33(0  AS-AS*"  4:  (F4J04  (Half  value) (F( ) (Ft }  5:  (F4 ) 05  (No  value) (Ft ) (FB }  6:  (F4J06  (Half  value) (Ft ) (Ft ) " 

3390  AS-AS+"  7:  (F4)07  (Full  value) (Ft ) (Ft )  I:  (F4)0(  (Half  value) (Ft) (Ft )(F3) 00" :GOSUB  2(30 

3400  AS*""  :  GOSUB  5140:  IF  (VAL(A$)<1)  OR  (VAL(AS)X)  THEN  3400 

3410  MI-MI* ( (VAL(AS) -1) *32) :GOTO  3030 

3420  IF  AS-"ca"  THEN  Z-l:GOTO  120 

3430  IF  AS-**pf"  THEN  Z-2:GOTO  120 

3440  IF  A$-"ZS"  THEN  Z-3:GOTO  120 

3450  IF  AS-"ap"  THEN  E-4 : GOTO  120 

3460  GOTO  3150 

3470  REM  SETUP  FOR  REPLAY:  CALL  ONCE  BEFORE  ANY  TARGETS  PRESENTED 
34(0  POKE  2041 , 43 :POKE  2042, 43: POKE  V*23,6:POKE  V+29,6 
3490  POKE  V+40, 1 :POKE  V+41, 0:RETURN 

3500  N-FNN(907) :N-N* (H>12t) *(N-12t) :SYS  344(:GOSUB  2600 

3510  J— 0 : GOSUB  2670  :AS-"  (F3)  05  (CLRHFS)OO  (FI )  (NHT)  steady  pos  "*CR$ 

3520  J-l t GOSUB  2670 : AS-AS+" (Ft ) (NHT)triggar  sq  "*CRS : J-2 : GOSUB  2670 

3530  AS-AS+" ( F2 )001 9 (MHT) follow  thr  "♦CHS: J-3 : GOSUB  2670 

3540  AS— AS* "(Ft) (NHT) shot  loc  "4CRS*"(H0ME) " tCOSUB  2(10 

3550  Z-TN :N-FNN( 930 ) :N-M*(N>32767) *65536: IF  (CL-1)  AND  (EZ)  THEN  Z-5 

3560  POKE  (39, X*DA% (Z, 2) tPOKE  (40,0:POKE  (41,  Y*DA« <Z, 3) 

3570  POKE  V*4, 231 -N: POKE  V*5,127-TJ 

35(0  XI— ABS (2444 (PNW ( (47 ) - (X+DAt (Z, 2 ) ) ) ) r Yl-ABS (1434 (PEEK ((49) - (Y4DA% (Z, 3) ) ) > 

3590  X2— PEEK  (V+16)  AND  254:  IF  FNH(Xl)O0  THEN  X2-X2  OR  1 
3600  GOSUB  2(30 :POKE  V,FNL(Xl) :POKE  V*1,FNL(Y1) :POKE  V416.X2 
3610  NS— 12( :POKZ  V414, 254-DAI (Z, 2) :POKE  V*1S, 152-DAt (Z, 3) 

3620  IF  (TM-1)  AND  ((EZ-0)  OR  (CLOl))  THEN  NS-192:POKE  V412, 255  :POKE  V413.120 
3630  POKE  (23,7:POfCE  (24,ll:POKE  253,221:SYS  COlPOKE  (45, 1  :F— 1 : SYS  SV 

3640  POKE  V421.NS  OR  6:A$-"(BLK}(F2)0212 (FI I ( RVON) replay (RVOF) (F3)00M :GOSUB  2(30 :N-FNN( 90S) 

3645  N-N4 (N>255) * (N-255) : POKE  S21,N:N-N-60 tPOKE  (33, -N* (N>0) tPOKE  ((4,1 
3650  IF  (PEEK (((4)  AND  l)-0  THEN  36(0 

3660  IF  (PEEK (56321) -247)  AND  (F-0)  THEN  POKE  t(4, 0 :Z-0:GOTO  3750 
3670  GOTO  3650 

36(0  SYS  BANG: F-0 tPOKE  V421.NS  OR  7 

3690  AS— "(RTJC)  (P2 1 0212pull  trigqer  (Ft  MC/RT)(C/RT)  to  continue  ":  GOSUB  2(30:  POKE  19(,  0:F-1  :Z-1 
3700  IF  PEEK (56321) -24 7  THEN  Z-0:GOTO  3750 
3710  IF  PEEK (56321)— 12?  THEN  Z-12t:GOTO  3750 
3720  Z-Z4l:IF  t<100  THEN  3700 

3730  F-F4l:IF  F-2  THEN  POKE  V421, NS  OR  l:i-0:OOTO  3700 

3740  F-0: GOTO  3640 

3750  GOSUB  2(10: POKE  V421. 0 : RETURN 

3760  A— 0:BC— 0:N— PEEK((3t) :IF  N<2  THEN  RETURN 

3770  FOR  J-0  TO  3 • SD% (25, J)-0 : NEXT  J 

37(0  FOR  S-0  TO  N-l:FOR  J-0  TO  3 :SD% (25, J)-SDI (25, J) *3D% (S, J) :NEXT  J,S 
3790  FOR  J-l  TO  5 :H( (J)-0 tNEXT  J 

3(00  FOR  J-0  TO  3:SDI (25, J) -INT ( (SDt (2S,J)/N)4.S) : NEXT  JtS-25 : J-0 iGOSUB  2670 

3f  0  AS-"(F3)05(F6)00(F5)00(F7)00(CLR) (LBLU) (F2) 0601 (FI ) final:  lavel"4STRS (CL) * " (Ft ) (Ft ) (NHT) staady  pos  "4CR$ 
3(20  Ht (Z)-H% (Z) 41 : J— 1 : GOSUB  2670 :A(-AS4"(Ft ) (NHT)trlggar  sq  "4CR$:H% (Z)-H% (Z) 41 
3(30  J— 2 : GOSUB  2670 :A$-A|4"(Ft) (NHT) follow  thr  "4CRS iHt (Z) -H% (Z) 41 

3(40  J— 3 : GOSUB  26?0 : Af— Af4w(Ft| (NHT) shot  loc  "4CRS4*(F3)0( (FI) (NHT)":H% (Z)-H% (Z) +1 :POKE  V421.0 


3*50  COSUB  2790:A-0:BC-0:IF  N<>NT*6  THEN  RETURN 
3160  IF  H% (1) <2  THEN  3170 

3165  A-(CL>SL) :BC-6-A:BS-"(F2) 11992  or  *ora (F* J(F2 } 0999poor  acoraa":GOTO  3M1 

3*70  IF  (Hl(l)-O)  AND  <HI(2)-0)  THEN  A-l: RETURN 

3tt0  BC-6 : BS— " { F2 ) 1 1 99a  poor  or {FI ) (C/RT)balow  avaraga  acora" 

3tll  AS-"(r3)09{CLR)(RED)  (F1HF*)  (F»)  You  «ra  baing  aant (F* ) ( C/RT)  back  to  laval"*STR$  (CL+A) 

3*12  AS-AS*"(F*)  bacauaa  you  hava (F*}"4BS+" (FI HNHT) ": GOSUB  2790:RETURN 
3*90  FOR  Z-B  TO  E*1 :POKE  16325*Z, 255 :NEXT  X 
3900  FOR  I-B  TOE:Zl-IHT(RND(l)ME-B))4B 

3910  IF  PEEK(163254Z1)-2S5  THEN  POKE  163254Z1 , Z : GOTO  3940 
3920  Z1-Z1*1:IF  Z1>E  THEN  Zl-B 
3930  GOTO  3910 
3940  NEXT  Z: RETURN 

3950  COSUB  2*40:A$-"L-"4STR$(CL)4"  |T-  0  |R-"4STR$  (RP)  : GOSUB  5100 

3960  TN-TM+1 : IF  TN-E+2  THEN  Z-0: RETURN 

3970  IF  CL<*  THEN  4000 

39<0  AD— FNW{*76) :T-PEEK (AD) : AD-AD* 1 

3990  FOR  Z-l  TO  T : Zl-INT ( ( (PEEK (AD*5) *2) /3) + . 5) :POKE  AD*5,  Z1 : AD-AD414 : NEXT  Z 
4000  AD— 16512 : IF  (CL-6)  OR  (CL-*)  THEN  AD-11560 
4010  IF  (CL-7)  OR  (CI/-9)  THEN  AD-206C* 

4030  Z-ADjIF  PEEK («3«)>-PEEK (699)  THEN  2-2*1 

4040  SB-0 :X—Z*IR: POKE  532*0, BC : GOSUB  5240:POKE  V*21,0:IF  Z-12*  THEN  RETURN 

4050  IF  X-64  THEN  SYS  NH 

4060  IF  PEEK ( *7 I ) <>0  THEN  4060 

4070  X1-(IWT(RND(1) *3)4l)*750:FOR  Z-l  TO  Zl:NEXT  Z:GOTO  3960 

40*0  AS-" (F3)09(F6) 00 (CLR) (F5) 13 (F7 ) QO(BLK) " J  GOSUB  2*30 

4090  POKE  251. FNL (Z ): POKE  252, FNH{Z) :Z-TN: IF  (CL-1)  AND  (EZ)  THEN  Z-5 

4100  POKE  atO, Z :POKE  **1,N:SYS  GP:IF  PEEK(*24)-0  THEN  RETURN 

4120  AS-" ( F2 | 04 02Her*  ia  your"*STRS  (PEEK (*24) ) ♦"  round  ahot  group** 

4120  IF  PEEK(*23) >0  THEN  A$-A$*"(F2) 1003"*STRS (PEEK (*23> ) *"  ahot(a)  aiaaing" 

4130  NS-12* : AS— AS+" (F2 1 1404"*STR5 (2*50) 4"  aatara":POKE  V+14, 172-DA*  (Z,  2) 

4140  POKE  V*15, 150-DAI (2, 3) :POKE  2047, Z* 32 : POKE  V+45,12:POKE  V*46, 12:Zl-0 
4150  IF  Z<3  THEN  POKE2047, 37*2*2:21-192 

4160  IF  Z-l  THEN  POKE  V+12. 173 : POKE  V+13, 11* :POKE  2046, 40 :MS-192 
4170  POKE  V+23, Z1 : POKE  V*29,Z1:P0KE  V+27, 255 : POKE  V+16,0:POKE  V*21,NS 
41*0  GOSUB  2790 :POKE  53265, 43 :POKE  V*27,0:POKE  V+2 1 , 0 : RETURN 
4190  IF  N-0  THEN  RETURN 

4200  21-0:22— PS*20 : Z3— PEEK (I3S) -1 :Z5— 0 : POKE  7*5, FNL(LC) :POKE  7*6,FNH(LC) 

4210  FOR  Z-Z2  TO  23 : Z4-USR (Z) : IF  Z4<40  THEN  Z5-Z4+Z5 : Zl-Zl* 1 
4220  NEXT  Z:Z4-0:IF  Z1>0  THEN  Z4-FNZ (100- (Z5/Z1 ) *C) 

4230  A$-A$4"(F2H303(GRN)Hita(F2)2l99(RED}Kiaaea  (YELO)  (F2}2999No  Fira*(Ft )  (Ft )":GOSUB  2*30 :  Zl-0 :  Z2-0 :  Z3-0 
4240  FOR  1-1  TO  6:AD-I1*PS*160 :POKE  251, FNL (AD) : POKE  252,FNH(AD) 

4250  POKE  **1, N : POKE  **0,12**I 

4260  SYS  GP:A$— **  (  LBLU)  (F2 )  0599"*STR$  (1*50)4"  : Z-PS*3 : DAI (I, 5*2) -PEEK (910) 

4270  DAI (I, 642) -PEEK (911) : DAI (1 , 74Z) -DA* (I. PS) -PEEK  (*24 ) 

42*0  IF  DAKI.  742X0  THEN  DAI(I.74Z)-0 

4290  Zl— Z14PEEK (910) : Z2-Z24PEEK (91 1 ) : Z3-Z34DAI ( I, 742) 

4300  AS-AS+"(GRN )(F2)1399-4STRS (PEEK (910)) 4"(RED) (F2 ) 2299"*STR$ (PEEK (91 1 )) 4" (YELO)(F2 ) 3299" 

4310  A$— AS4STRS (DAI (I,7*2))4"(F*) (T* ) " : GOSUB  2*30iNEXT  I 

4320  AS— "(F2)0699 (LBLU )TOTAL(F2) 1399 (CRN) "4STRS (21)4" <F2> 2299 (RED) "4STRSU2)4"(F2) 3299 (YELO)m4STRS(Z3) 4" (F*HF*J 
4330  AS-AS4-(LBLU)(F2)0699Panaltiea:"4STRS(PEEK(912))4"(F*)":IF  PEEK (*3*) <-PS*20  THEN  4350 
4340  25-9: GOSUB26*0:A5-AS4"( LBLU) (F2)0699Your  accuracy  was  "4RIGHTS (CR$,  LEN (CR$) -5) 4" (F* ) " 

4350  BS— "  (F2  )1 599  (GRN ) QUALIFIED  (NHT } "  :  IF  Zl<15  THEN  BS-"  (F2  )  14  99  ( RED )  UNQUALIFIED  (IfHT) " 

4360  AS— A$4BS: GOSUB  2 790: RETURN 

4370  AD— FNN(*?6) : TN— PEEK ( AD43 ) : Zl-DAI (TN, 6) 

43*0  X- ( ( IMT (RND (1)*65))*2) 471 :POKE  AD4l , X : Y-PEEK (AD42) : TJ-PEEK (AD*1 1 ) 

4390  TJ— TJ4 (TJ>127) *256 : IF  TN-1  THEN  POKE  AD415.X44* 

4400  S- ( (TN-1 )*NT) 421 :POKE  *3*, S : AD-I14S** : POKE  AD47.I 
4420  POKE  900, 255 :POKE  AD, 255 :GOSUB34*0 

4430  AS-"L-"4STR$(CL)4"|T-"4STRS(I)4"|R-"4STRS(RP)  :GOSUB  5100.-POKE  I2*7*S*8,RP 
4440  SB-0 :Z-IR: GOSUB  5240: POKE  *7*,0 
4450  IF  2012*  THEN  DAI  (TN,  6) -DAI  (TN.  6)  41 
4460  IF  Z>63  THEN  RETURN 

4470  FOR  Z-l  TO  5 :HI (Z)-0 :NEXT  Z :N-FNN ( 907) :N-N4 (N>12*) * (N-121 ): GOSUB  2600 

44*0  J— 0 : GOSUB  2670 :  AS-** (F3 )  05 (CLRHF5 ) 00  (FI )  (IfHT)  ataady  poa  "4CRS :  HI  (Z )  -HI  (Z)  41 

4490  J-l : GOSUB  2670 :A*-A$4" (f» ) (NHT ) triggar  aq  "4CRS : HI (Z) -HI (Z ) 41 

4500  J— 2 : GOSUB  2670 : AS— AS*" (F2 ) 0019 ( NHT ) follow  thr  "*CRS : Hi (Z) -HI (Z) *1 

4510  J— 3 : GOSUB  2670 ;AS-AS*" (F* ) (NHT ) ahot  loc  "*CR$4" (HOME) " :HI (2) “HI (Z) +1 

4520  GOSUB  2*10: IF  (Hl(l)-O)  AND  <Z>2)  THEN  4550 

4530  GOSUB  3550: IF  Z-12*  THEN  RETURN 

4540  IF  K>MT*6  THEN  GOSUB  2*40 

4550  IF  PEEK(900) <12*  THEN  DAI (TN, 5)-DAI (TN, 5) *1 

4560  RETURN 

4570  FOR  J-0  TO  3 : SDI (25, J) -INT ( (SDI (25, J) /3) 4 . 5) :NEXT  J 

45*0  A— S : B— 2 : S— 2 5 : J— 0 : GOSUB  2670:AS-"(F3)05(F6)00(F5)00(F7)00(CLR)(NHT) (Fl)ataady  poa  "*CRS 
4590  J— 1 : GOSUB  2670 :A$-AS4" (NHT) triggar  aq  "*CRS:J-2: GOSUB  2670 

4600  A5-AS+W{ NHT) follow  thr  "4CR*:J-3 : GOSUB  2670 sAS-AS*" (NHT) ahot  loc  "*CR$ : S-A: Z-B 

4610  GOSUB  2*30: POKE  251,FNL(2) :POKE  252, FNH (Z) :POKE  **0,1:POKE  **1,3:SYS  GP 

4620  AS—**" :  IFPEEK  ( *23 )  >0  THEN  AS-AS+"  (BLK)  (F2  )  100*"4STRS  (PEEK  ( *2 3) )  4"  ahot  (a)  miaaing" 

4630  POKE  *23,*: POKE  *24, 15 :POKE  253, 13: SYS  CO 

4640  POKE  V414. 161 :POKE  V+15, 135 :POKE  V416.0:POKE  V*21 , 12* :POKE  V*27, 12* 

4650  AS-AS+"(SNLC) (NHT) (F2)0723<Pull  triggar  to  continua>(F3) 00": GOSUB  2*30:BS-"  " 

4660  IF  PEEK (56321) -24 7  THEN  Z-0:GOTO  4700 
4670  GET  A*: IF  AS-""  THEN  4660 

46*0  BS— RIGHTS (BS,  1) *AS : IF  BS-"rt"  THEN  Z-12*: GOTO  4700 
4690  GOTO  4660 

4700  POKE  53265, 43: POKE  V*27,0:POKE  V42 1,0: RETURN 

4710  At— AS*" (F2 ) 1303 ( GRN ) Hit a ( F2 ) 2 1 99 ( RED ) Niaaaa ( YELO) ( F2 } 2999N0  Firaf (F() (F*)":GOSUB  2130: HZ-0 :Ml-0:NF-0 
4720  FOR  1-1  TO  6:POKE  251,FNL(I1) iPOKE  252. FNH (II) i POKE  IS1, PEEK (*3* ) 

4730  POKE  1*0, 12*41 :SYS  CP : AS-" ( LBLU}( F2 ) 0599"4STR| ( I* 50) 4"  ■" 

4740  HI— HZ4PEEK (910) :HI— HI+PEEK (911) > Z3-DAI (1,4) -PEEK (124) : IF  Z3<0  THEN  Z3-0 
4750  NF-NF4Z3 : AS-AS*" ( CRN ) (F2 ) 1399"*STRS (PEEK (910) )*" (RED M F2 ) 2299"*3TR8 (PEEK (911 ) ) 

4760  AS-AS*  "(YllO) (F2 ) 3299"*STRS (23) 4" (F* ) ( F* ) GOSUB  2I30:NEXT  1 

4770  At— "(F2) 0699 (LBLU ) TOTALi F2 ) 1399 (CRN) "*3TR$ (HI) 4"(F2 )2299(RED) "4STRI (MI) *"(F2 ) 3299 (YELO) "+STRS (NT) 4" (F* ) (F* ) 
47S0  REN  At-At*" (F2)0799Panaltiaai"*STRt (PEEK (912) ) : GOSUB  2770:A£TURN 

4790  BS-"(F2) 1599 (GRN) QUALIFIED (NHT) " i IF  HI< (23*ABS (PS-1 ) *5)  THEN  BS-"(F2)1 4 99 (RED) UNQUALIFIED (NHT)" 

4*00  AS— AS * BS : GOSUB  2790: RETURN 

4S10  PRINTS 1, "p"CHRS( 104) CHRS (FNL(Z) ) CHRS (FNH(Z) )CHRf (0) tRETURN 
4*20  INPUTS 1,ER, AS, AS, AS: IF  ER<21  THEN  ER-0 
4*30  RETURN 

4S40  Z-l :OPEN  *,*,*, "data" : GOSUB  4*20: IF  ER-0  THEN  4*60 

4S50  CLOSE  StOPEN  *, *, I, "data, 1,"*CHRS (170) : RE-1: HS-0: GOTO  4110 

4C60  GOSUB  4t20:G£T#t, AS, 8S:R£-ASC (AI+CHRS (0) ) 4ASC (BS4CHRS (0) ) *256 

4S70  GETSI, AS.BS :HS-ASC(AS*CHRS (0) ) *A5C (BS+CHRS (0) ) *256 

4SI0  RE-RE* 1 : HS-HS* 1 : GOSUB  4*10 :AS— CHRS (FNL (RE) )*CHRS (FNH(RE) ) 

4S90  AS-AS*CHRS(FNL(HS) )4CKRS(FNH(HS) ) : PRINTS*, AS : Z-RE : COSUB  4*10 
4900  PRINTS*,  IOS;  IDS,* CHRS  (13)  ;CKRS  (FNL (RE) ) ;  CHRS  (FNH  (RE) ) ;  :  CLOSE  • 

4910  RC-RE: GOSUB  4 *20: RETURN 


17 


4920 

4930 

4940 

4950 

4960 

4970 

4960 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5060 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5110 

5190 

5200 

5210 

5220 

5230 

5240 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6090 

6090 

6100 

6110 

6120 


IF  (RK-0)  OR  UN-0)  AND  (RP-0) )  THEN  RETURN 
OPEN  1,6,15: POKE  V+21.0.IF  RE<300  THEN  4970 

A$— "(F3)09(F6)Q0(F5)00(F7)Q0(CLR)  {FI}  (F6)  Thia  di»k  ia  full  (F4  )  (Ft)  (F6 )  Plata*  ina*rt(F8)(F6)  anothar  and(F8)(F6)" 
A$-A$+"  praaa  RETURN {F3 )  00" : GO5UB2B30 
GET  A$ : IF  A$<>CHR$<13)  THEN  4960 

AS—" (F3 ) 09 ( CLR) (F5 ) 00 (F7 } 00 (RED) { SNLC )(F1)(F2]0112 -  Plaaaa  Wait  - (F3)  00"  sGOSUB  2630 

IF  (RE>299)  OR  < (CL-0)  AND  (T-Q) )  THEN  GOSUB  4640: IF  RE>299  THEN  4940 
OPEN  6,6,6, "data" :2-R£+l : GOSUB  4810:POKE  823, FNL (2) : POKE  B24,FNH(2) 

2— (TOO)  *126:  IF  CL>0  THEN  2-CL:  IF  (CL>4)  AND  (PS-1)  THEN  2-2  +  126 
POKE  660,2: POKE  SSl,AC:POKE  631, ASC(MOS) :2-8192 
IF  CL>4  THEN  5040 

FOR  21-0  TO  23 : FOR  22-0  TO  3:POKE  2, SD% (21 , 22 ) : 2-2+1 :NEXT  22,21 
SYS  SA:RE-FNW (623) : 2-1: GOSUB  4610 : AS-CHRS (FNL(RE) ) +CHRS (FNH (RE) ) 

AS— AS+CHRS (FNL (HS) ) +CHRS (FNH (HS) ) : PRINT# 6, AS : 2-RC i GOSUB  4810 
PRINT##, IO$; ID$;CHR$ (13) ;CKR$ (FNL (RE) ) ;CHR$ (FNH (RE) ) : CLOSE  6 
GOSUB  4 620  .-CLOSE  1 :MO$-"a" : RETURN 

A$-"(F3|09(F6)Q0(F5)00{F7)0O{CLR) (RED) (SWLC) (FI ) (F2 ) lllQGat  Raady (F3 ) 00" : GOSUB  2630 
FOR  2-1  TO  3000: NEXT  2 : BC-2 : RETURN 
B$-"" : IF  < (MI  AND  7)*5)-0  THEN5130 
B$-STR$(((WI  AND  224)/32)+l) 

BS— " ( F2 ) 3400W— "+STRS ( (WI  AND  7) *5) +" (F4 ) 0"+AIGHT$ (B$, 1 ) 

A$-"(HOME) (BLK) (RVON) (SWLC)"+A$+B$+" (F6) 0"+CHR$ (BC+48) : GOSUB  2630:RETURN 
AS-AS+"?  (C/LFKC/LF) (C/LF) (C/LF)" :GOSUB2 630 :B$-"" 

GET  A$?IF~A$-""  THEN  5150 

IF  (AS-CHRS (13) )  OR  (LEN(B$)>2)  THEN  A$-"(C/UP) (F8)":GOSUB  2630 sA|-B$ : RETURN 
IF  A$OCHR$(20)  THEN  5200 

IF  B$<>""  THEN  B$-L£FT$(B$,LEN(B$)-1) :A$-"  (C/LF) (C/LF)  (C/LF )/ (C/LF) " jGOSUB  2630 
GOTO  5150 

IF  (A$<"0")  OR  (A$>"Z")  THEN  5150 

BS-BS  +A$ : A$-A$  +  "  (C/LF) " : GOSUB  2630:GOTO  5150 

FOR  2-12  TO  12+3*3  STEP  6:POKE  2, 255: NEXT  2 : RETURN 

POKE  49166, SB: SYS  4 91 62: RETURN 

POKE  765, 10 :POK£  766,192:POKE  491 68 , SB: 2-USR (2) : RETURN 

REM  THE  FOLLOWING  IS  THE  CRITERION  FOR  GOOD. AVERAGE, BELOW  AVERAGE, POOR 

DATA  95. 90, 64. 79:REM  SP  SUP 

DATA  96. 92, 87, 83: REM  TS  SUP 

DATA  95, 89. 82, 76:REM  FT  SUP 

DATA  97. 93. 67. 82:REM  SL  SUP 

DATA  92, 87,81, 76:R£M  SP  UNS 

DATA  93, 66, 76, 71 :REM  TS  UNS 

DATA  93,79, 64, 50: REM  FT  UNS 

DATA  96, 91,64, 78:R£M  SL  UNS 

DATA  39. 35, 30,26:REM  HITS 

DATA  97, 95, 92, 90: REM  ACCURACY 

DATA  3,2,4  7,32,3,4,5,23,36,  9,  4, 6.  11,  12,  9 

DATA  4,4,11,14.6,3.2.11,15,7.2,1,11,16.6 
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•■3400 

,-MLTEXT .3400  TOR  BAM  CARTRIDGE 


JMP 

ENABLE 

JMP 

DSABLE 

JMP 

ROTATE 

JMP 

SEEVAL 

JMP 

NOTTRG 

JMP 

BANG 

JMP 

WAIT 

JMP 

SCENE 

JMP 

LETERS 

JMP 

LETML 

JMP 

STDEV 

JMP 

RADERR 

JMP 

SHTGRP 

JMP 

COLORS 

JMP 

WHI STL 

JMP 

SAVE IT 

JMP 

PORT 

•  OPT 

NOL 

PRGNUM  -49161 

;  CONVENTIONS  USED 

.•PROCEDURE  XXXXX 
.•PURPOSE  or  PROCEDURE 
.NECESSARY  ACTIONS  BEFORE  CALL 
; HOW  TO  CALL 

.WHAT  USER  CAN  EXPECT  AFTER  CALL 

.LIB  MACROS -VARS 

.OPT  NOL 


; 120-1023  IS  UNUSED  If  NO  CASSETTE 


CHOICE 

-920 

STOP 

-921 

HOLD1 

-923 

HOLD  2 

-924 

NSRT 

-925 

HOLDA 

-926 

HOLDX 

-927 

NUMRD 

-929 

NUMR20 

-929 

HOLD 

-931 

DELAY 

-932 

CUR  1 

-933 

OFFX 

-9?4 

OFFY 

-936 

SHOTS 

-939 

HI  IRQ 

-939 

H2  IRQ 

-940 

H3IRQ 

-941 

H4IRQ 

-942 

H5IRQ 

-943 

H6IRQ 

-944 

H7IRQ 

-945 

H9IRQ 

-946 

XV  AL 

-947 

;X 

BULLET 

STRIKE 

YVAL 

-949 

;  Y 

BULLET 

STRIKE 

SORTAF 

-951 

;« 

RDGS  TC 

SORT  AFTER 

STS  I YE 

-952 

;♦ 

TO  PUT 

IN  SRTBUF 

SRTBUF 

-953 

CURSRT 

-963 

HOLDY 

-964 

LENSTR 

-965 

TRAJ 

-966 

IRQ 

-967 

SSCOL 

-969 

SDCOL 

-969 

FLAGS 

-970 

CODE  I 

-971 

CODE2 

-972 

COLOR 

-973 

OFFSCR 

-974 

HATSEC 

-975 

TARORD 

-976 

CRSDLA 

-979 

CURTF 

-979 

HOLDS 

-990 

HOLD4 

-991 

CURTAR 

-992 

CUR2 

-993 

IRQ2 

-994 

COPY 

-995 

CODES 

-996 

CODE4 

-997 

TAR?  RE 

-999 

NUMR60 

-999 

;2  BYTES  FREE  AT  Ml 
HXTSPR  “M3 
SUKX  — M4 

NSIZE  -196 
TIMES  -S97 
FSTAT  “Ml 
MAXSHT  -M9 
LASTSH  -900 
KITS  -910 
MISSES  -911 
PENAL  -912 
PINTO  -913 
KAXVAL  -929 
WIND  -929 
WDRIFT  -930 
SHOTRK  -932 
CURNUM  -933 
IR03  -935 
BORCOL  -936 
LPCKPX  -937 
LPCMPY  -931 
; NEXT  ONE  AT  939 


CENX  -15172 
CENY  -15*10 
TARNUM  -15**« 

SPECIL  -15196 
YDRIFT  -15904 
XDRIFT  -15912 
JIFFYS  -15920 
TIMEFL  -1592* 

INSTK  -15936 
CDL3TK  -15944 
DLSTK  -15952 

ADD  -9B96A 
CHKIN  -5FFC6 
CKKOUT  — $FFC9 
CHRIN  -SFFCF 
CLOSE  -SFFC3 
CLRCHN  -SFFCC 
CHROUT  -9FFD2 
DIVIDE  -SBB12 
FLOAT  -SB391 
GET1N  -9FFE4 
LOAD  -SFFD5 
RLTPLY  -SBA2B 
OPEN  -SFFC0 
SETLFS  -9FFBA 
SETNAM  -JFFBD 
SORT  -SBF71 
SUBTRT  -SBI53 
UNFLOT  -SB1BF 
V  — $D000 
SID  -SD400 
TEMP  -16192 

XLPB20  -40960  .’UNDERNEATH  ROM 
YLPB20  -41472  .-UNDERNEATH  ROM 
XTGB20  -419*4  .‘UNDERNEATH  ROM 
YTGB20  -424  96  .’UNDERNEATH  ROM 
XLPB60  -4300*  .-UNDERNEATH  ROM 
YLPB60  -43264  .-UNDERNEATH  ROM 
XLPA60  -43520  .-UNDERNEATH  ROM 
YLPA60  -43550  ; UNDERNEATH  ROM 
XTGA60  -435*0  .-UNDERNEATH  ROM 
YTGA60  -4  3610  .-UNDERNEATH  ROM 
INFO  -43640  /UNDERNEATH  ROM 
INF02  -439*4  .-UNDERNEATH  ROM 
HLDBUF  -4432*  .-UNDERNEATH  ROM 
.-NEXT  AT  44*40 


MAC 

DINC 

: DOUBLE 

INC 

71 

/PRECISION 

BNE 

72 

/INCREMENT 

INC 

?1*1 

.  MND 

.MAC 

ADDR 

.MOVE  LOW 

LDA 

♦<?2 

.'BYTE  OF  72 

STA 

71 

.INTO  71  AND 

LDA 

«>?2 

/HIGH  BYTE  OF 

STA 

7 1  ♦  1 

72  INTO  71  +  1 

.MND 

.MAC 

MOVE 

LDA 

72 

STA 

71 

LDA 

72*1 

STA 

71  +  1 

.MND 

.MAC 

DISK 

.‘DISK 

LDA 

#9 

/OPERATIONS 

TAX 

/  LOAD" 72",  1 

LDY 

♦  71 

.*  73  IS  END  OF 

JSR 

SETLFS 

/FILE  NAME. 

LDA 

♦73-72 

.-THUS  LENGTH 

LDX 

♦<72 

.-OF  FILE  NAME 

LDY 

•  >72 

: IF  73-72 

JSR 

SETNAM 

LDA 

•  0 

.MND 

.MAC 

PRINT 

LDA 

♦  <?1 

LDY 

#>?1 

JSR 

•ABIE 

/PRINT 

.MND 

.MAC 

PUTR 

PHA 

TYA 

PHA 

TXA 

PHA 

.MND 

.MAC 

GETR 

PLR 

TAX 

P  LA 

TAY 

PLA 

.MND 

.MAC 

DADD 

LDA 

71 

CLC 

ADC 

72 

STA 

71 

LDA 

7141 

ADC 

72  +  1 

STA 

71*1 

.MND 

•  MAC 

C9UB 

LDA 

71 

SEC 

SBC 

72 

STA 

71 

LDA 

71  +  1 

SBC 

72  +  1 

STA 

71  +  1 

.MND 

.MAC 

PLOT 

LDY 

♦n 

LDX 

#72 

CLC 

JSR 

6FFF0 

.MND 

.MAC 

DSPL 

LDA 

#72-71 

STA 

LENSTR 

LDA 

#<71 

STA 

•A3 

LDA 

#>71 

STA 

SA4 

JSR 

LETML 

.MND 

.OPT 

LIST 

.END 

MRCROS-V3UU 

.OPT 

NOL 

.LIB 

IRQSTUFF 

/ IRQSTUFF  FOR  BRM  CARTRIDGE 
.-PROCEDURE  ENABLE 
.-PREPARES  IRQ  TO  TAKE  READINGS 
; B : NONE 
; C : SYS  ENABLE 


; A: NONE 
ENABLE  SEI 
LDA 

#0 

STA 

56334 

LDA 

53265 

AND 

#127 

STA 

53265 

LDA 

#250 

STA 

53266 

LDA 

#5 

STA 

53274 

LDA 

53273 

STA 

53273 

ADDR 

9314. START 

LDA 

#0 

STA 

CUR1 

.-20  RDGS  SP 

STA 

CUR2 

;  60  RDGS  SP 

STA 

IRQ 

STA 

BORCOL 

STA 

NUMRD 

; #  READINGS  B 

STA 

SORTAF 

;♦  SORT  AFTER 

LDA 

#5 

STA 

STSIZE 

LDA 

♦  1 

STA 

HAF3EC 

STA 

H7IRQ 

CLI 

RTS 


.-PROCEDURE  DSABLF 

/RETURNS  IRQ 

VECTOR  TO  NORMAL 

; B : NONE 

.*  C  :  SYS  DSABLE 

; A: NONE 

DSABLE  SEI 

LDA 

♦  1 

ST* 

56334 

LDA 

#240 

STA 

53274 

LDA 

53273 

STA 

53273 

ADDR 

9314. 9EA31 

CLI 

RTS 

.-PROCEDURE  START  (IRQ) 

.-INTERRUPT  CONTROLLER  ROUTINE 

; IRQ  HAS  THE  FOLLOWING  VALUES: 

; 121 :  TAKE  READINGS  BEFORE 
:  64:  TAKE  READINGS  AFTER 
;  32:  GET  COLLISION  DATA 
;  16:  SOUND  NEEDED 
;  I:  WAITING  FOR  TRIGGER  RELEASE 
;  4:  SHOT  HAS  BEEN  FIRED 

;  2:  NEW  TARGET  DISABLE 

1:  NO  BULLETS  LEFT 

; 

; XRQ2  HAS  THE  FOLLOWING  VALUES: 

; 129 :  RETURN  AFTER  ONE  SHOT  FIRED 
;  64 r  RETURN  WHEN  NO  TARGETS  UP 
;  32:  NO  HIT/NISS  DETECTION 
;  16:  NO  CROSS  DISPLAYED 
;  9:  CROSS  FOR  MISS  ONLY 

;  4:  NO  DATA  SAVE  TO  INF02 

2:  DISPLAY  TARGET  NUMBER 
;  1 :  REPLAY 

; TARORD  (TARGET  ORDER)  IS  SET  UP 
; IN  THE  FOLLOWING  MANNER: 

.-BYTE  0:9  TARGETS  THIS  HALF  SECOND 
;  1: STARTING  X  COORDINATE 

;  2: STARTING  Y  COORDINATE 

/  3: TARGET  «  (FOR  ID) 

;  4: TARGET  SPRITE  POINTER 

;  5 :BIT  7: SET  TO  EXPAND  X 

/  6: SET  TO  EXPAND  Y 

;  5: RIGHT  X 

;  0-3: SPRITE  COLOR 

;  6 : TIME  LIMIT‘2  (SECONDS) 


19 


? : DELAY  (FOB  DLSTK,  CDLSTK) 

LDA 

IRQ 

; DON'T  TAKE 

STA 

DLSTK, X  ;  MOVEMENT 

;  • : INCREMENT  (FOR  INSTK) 

AND 

#63 

l  ANY  MORE 

STA 

CDLSTK, X 

9 ; TIME/FLIGHT 

( #P IXELS/BYT8) 

STA 

IRQ 

;  READINGS  IF 

INY 

10 :X  DRIFT 

JMP 

IRQ340 

/  NO  TARGETS 

LDA 

(SFB) , Y  ; INCREMENTFOR 

UsY  DRIFT 

IRQ100  CMP 

♦  254 

STA 

INSTK, X  ;  MOVEMENT 

12 :  BIT 

7: NOT  A 

TARGET 

BNE 

IRQ1 1 0 

INY 

6: REVERSE  DIRECTION 

LDA 

IRQ 

LDA 

(SFB) , Y  /TIME  OF 

5: TAR  MORE  THAN  1  SPR 

ORA 

42 

STA 

TIMEFL.X  ;  FLIGHT 

4 : DON ' T 

INC  TARPRE 

STA 

IRO 

INY 

2-0:4  TARGETS 

JMP 

IRQ140 

LDA 

(SFB) , Y  ;X  DRIFT 

:  13 :X  CENTER  OF 

MASS  OFFSET/2 

IRQ110  CMP 

#253 

.•WHISTLE? 

STA 

XDRIFT.X 

;  14 :Y  CENTER  OF 

MASS  OFFSET 

BNE 

IRQ130 

INY 

; 

LDA 

OFFSCR 

•■SET  FLAG 

LDA 

(SFB).Y 

;  INFO  IS  SAVED  AS  FOLLOWS : 

ORA 

♦  1 

STA 

YDRIFT.X 

.-BYTE  Os  TARGET  *  (FOR  ID) 

STA 

OFFSCR 

INY 

;  1: BULLET  X/2 

1RQ120  DINC 

SFB 

LDA 

(SFB) , Y  /SPECIAL 

;  2: BULLET  Y 

JMP 

IRQ090 

STA 

SPECIL.X 

;  3: TARGET  X/2 

IRQ130  CMP 

#121 

;  DELAY 

AND 

♦16  /COUNT  AS 

;  4: TARGET  Y 

BCC 

ZRQ150 

BNE 

IRQ220  ;  TARPRE 

;  5 : NUMR20  (LOW) 

SEC 

INC 

TARPRE 

6 : NUMR2  0  (HIGH) 

SBC 

#1 

TXA 

START  LDA 

44 

STA 

(SFB) , Y 

JSR 

INCNUM 

BIT 

53273 

CMP 

#128 

TAX 

BEQ 

CONTIN 

BEQ 

IRQ120 

IRQ220  INY 

LDA 

53273 

DEY 

LDA 

(SFB) , Y  /CEN  X  OFFSET 

STA 

53273 

IRQ140  LDA 

#0 

STA 

CENX.X 

JMP 

SFEBC 

IRQ150  STA 

H5IRQ 

.♦TARGETS 

INY 

CONTIN  LDA 

53265 

I  NY 

LDA 

(SFB) , Y  /CEN  Y  OFFSET 

AND 

4127 

LDX 

•  7 

STA 

CENY.X 

STA 

53265 

LDA 

4128 

INY 

LDA 

4250 

STA 

H3IRQ 

;  SPRITE  BIT 

LDA 

V+21  /TURN  ON 

STA 

53266 

IRQ160  LDA 

H3IRQ 

ORA 

H3IRQ  ;  SPRITE 

LDA 

53273 

EOR 

#255 

/ NOT  SPRITE 

STA 

V+21 

STA 

53273 

STA 

H4IRQ 

;  BIT 

IRQ230  LSR 

H3IRQ 

LDA 

IRQ2 

LDA 

V+21 

DEX 

/NEXT  SPRITE 

AND 

41 

AND 

H3IRQ 

BEQ 

IRQ240  .‘FINISHED? 

BEQ 

IRQ010 

BEQ 

IRQ1I0 

.SPRITE  OFF 

JMP 

ZRQ2  60 

JMP 

REPLAY 

LDA 

JIFFYS, X 

IRQ240  TYA 

/SET  UP 

IRQ010  LDX 

V+30 

; SPR/SPR 

BMI 

IRQ170 

; NO  LIMIT 

CL C 

;  TARORD 

LDY 

V+3 1 

.♦SPRITE /DAT  A 

LEC 

JIFFYS, X 

ADC 

SFB  /  FOR  NEXT 

LDA 

IRQ 

BNE 

IRQ170 

.•MORE  TIME 

STA 

TARORD  /  TIME 

AND 

432 

.♦COLLISION 

LDA 

H3IRQ 

.‘TIME  LIMIT 

LDA 

src 

BEQ 

IRQ020 

ORA 

OFFSCR 

;  HAS  EXPIRED 

ADC 

#0 

STX 

SSCOL 

STA 

OFFSCR 

STA 

TARORD+l 

STY 

SDCOL 

LDA 

#128 

LDA 

IRQ 2  / SHOW  TARGET 

LDA 

IRQ 

.♦CLEAR 

STA 

JIFFYS. X 

AND 

#2  ;  NUMBER? 

AND 

4223 

;  COLLISION 

LDA 

OFFSCR 

.♦HAS  TIME 

BEQ 

IRQ250 

STA 

IRQ 

;  FLAG 

EOR 

4255 

;  EXPIRED 

JSR 

5HONUM 

IRQ020  LDA 

IRQ 

AND 

V+21 

;  ON  ALL 

IRQ250  LDA 

IRQ  /READY  TO 

AND 

416 

BNE 

IRQ170 

;  TARGETS? 

AND 

#5  ;  PROCESS? 

BEQ 

IRQ030 

LDA 

464 

BEQ 

IRQ270 

;  PLAY  ANY  SOUNDS  HERE 

STA 

FSTAT 

IRQ260  JMP 

IRQ340 

IRQ030  LDA 

IRQ 

; WAITING  FOR 

IRQ17G  JMP 

IRQ230 

IRQ270  LDA 

IRQ 

AND 

41 

;  TRIGGER 

IRQ1I0  LDA 

H5IRQ 

.ANY  TAR  NEED 

AND 

#121 

BEQ 

IRQ040 

;  RELEASE? 

BEQ 

IRQ17Q 

;  DISPLAYING? 

BNE 

BEFORE 

LDA 

56321 

.♦YES: HAS  IT 

DEC 

H5IRQ 

; ONE  LESS  TAR 

JMP 

AFTER 

CMP 

4247 

;  BEEN 

LDA 

H4  IRQ 

.♦CLEAR 

BEFORE  JSR 

ONSCRN 

BEQ 

IRQ040 

;  RELEASED 

AND 

V+23 

;  EXPAND  Y 

ADDR 

SFB. XLPB20 

LDA 

IRQ 

; YES : CLEAR 

STA 

V+23 

LDA 

CUR2 

AND 

#247 

;  FLAG 

LDA 

H4IRQ 

.•CLEAR 

AND 

#127 

STA 

IRQ 

AND 

V+29 

;  EXPAND  X 

TAY 

IRQ040  LDA 

CRSDLA 

; CROSS  ON? 

STA 

V+29 

LDA 

SHOTS 

BEO 

IRQ060 

LDA 

H4IRQ 

.•CLEAR 

AND 

#1 

DEC 

CRSDLA 

AND 

V+16 

;  RIGHT  X 

BEQ 

IRQ280 

BNE 

IRQ060 

STA 

V+16 

TYA 

LDA 

HITSPR 

.♦TURN  OFF 

TXA 

;X-X*2 

ORA 

•  121 

EOR 

#255 

;  CROSS  AND 

ASL 

A 

TAY 

AND 

V+21 

;  ANY  HIT 

TAX 

INC 

SFC 

STA 

V+21 

;  TARGET  LEFT 

LDA 

(SFB)  ,  Y 

; X  COORDINATE 

IRQ280  LDA 

HI  IRQ 

BIT 

IRQ2 

STA 

v.x 

STA 

XLPB60, Y 

BVC 

IRQ050 

I  NY 

LDA 

H2IRQ 

CMP 

40 

LDA 

<SFB).Y 

;Y  COORDINATE 

STA 

YLPB60,  Y 

BNE 

IRQ050 

STA 

V+l.X 

INY 

LDA 

IRQ 

INY 

STY 

CUR2 

AND 

#63 

TXA 

zX-X/2 

DINC 

NUMR60 

STA 

IRQ 

LSR 

A 

DEC 

H7IRQ 

JMP 

SEA31 

;  NORMAL  IRQ 

TAX 

BNE 

IRQ260 

IRQ050  LDA 

#0 

LDA 

(SFB)  ,Y 

LDA 

♦  3 

STA 

HITSPR 

STA 

TARNUM, X 

STA 

H7IRQ 

IRQ060  LDA 

IRO 

.♦TAKE  ANY 

INY 

LDY 

CUR1 

AND 

#192 

;  READINGS? 

LDA 

(SFB)  ,Y 

.•SPRITE  PTR 

LDA 

HI  IRQ 

BNE 

IRQ070 

STA 

2040.X 

STA 

(SFB) ,Y 

LDA 

#0 

INY 

?NC 

SFC 

STA 

CUR1 

LDA 

(SFB) , Y 

.EXPAND  X? 

INC 

SFC 

STA 

CUR2 

BPL 

IRQ190 

LDA 

H2IRQ 

STA 

BORCOL 

LDA 

V+29 

;  YES 

STA 

(SFB).Y 

JMP 

9EA31 

.♦NORMAL  IRQ 

ORA 

H3IRQ 

INY 

IRQ070  LDA 

Sfb 

.♦SAVE 

STA 

V+29 

STY 

CUR1 

PHA 

;  SFB  AND  $FC 

XRQ190  LDA 

(SFB) ,Y 

;  EXPAND  Y? 

DINC 

NUMR20 

LDA 

•rc 

AND 

#64 

LDY 

CURSRT 

PHA 

BEQ 

IRQ200 

INC 

CURSRT 

DEC 

HAFSEC 

/ NEW  TARGET? 

LDA 

V+23 

;  YES? 

CP  Y 

•  5 

BEQ 

IRQ0S0 

;  OR  TIME  LM? 

ORA 

H3IRQ 

BCC 

IRQ290 

JMP 

IRQ250 

.♦NOT  TIME  YET 

STA 

V+23 

LDY 

•  0 

IROOSO  LDA 

#30 

j RESTORE 

IRQ200  LDA 

(SFB) , Y 

; RIGHT  X? 

STY 

CURSRT 

STA 

HAFSEC 

;  HALT  SECOND 

AND 

#32 

IRQ290  LDA 

HI  IRQ 

MOVE 

SFB, TARORD 

BEQ 

IRQ210 

STA 

SRTBUF.Y 

I RQ090  LDY 

•255 

LDA 

V+16 

TYA 

LDA 

IRQ 

/IS  TARGET 

ORA 

H3  IRQ 

CLC 

AND 

•2 

/  CHECK 

STA 

V+16 

ADC 

•  5 

BNE 

XRQ140 

;  DISABLED? 

XRQ210  LDA 

(SFB) , Y 

; SPRITE  COLOR 

TAY 

LDY 

40 

AND 

♦  15 

LDA 

H2  IRQ 

LDA 

(SFB) , \ 

r  ;#  TARGETS 

STA 

V+39.X 

STA 

SRTBUF.Y 

CMP 

#255 

INY 

LDA 

IRQ  /HAS  TRIGGER 

BNE 

IRQ100 

LDA 

(SFB).Y 

.•TIME  LIMIT 

AND 

412  /  BEEN 

LDA 

#32 

STA 

JIFFYS, X 

BNE 

IRQ300  /  RELEASED? 

STA 

FSTAT 

INY 

LDA 

56321  /TRIGR  PULL 

DXNC 

TARORD 

LDA 

(SFB).Y 

;  DELAY  FOR 

CMP 

#247 

20 


BNE 

IRQ300 

BIT 

BORCOL 

LIGHTPEN 

BPL 

SNPULL 

ON  SCREEN? 

LDA 

#4 

STA 

53210 

1RQ300  JMP 

IRQ340 

SMPULL  JSR 

BANC 

LDA 

#0 

IF  ANYONE 

STA 

XV  AL 

HAS  THE 

STA 

XVAL+1 

REVELATION 

STA 

YVAL 

THAT  SORT¬ 

STA 

YVAL+1 

ING  REALLY 

LDA 

HI  IRQ 

IS  THE 

BEQ 

IRQ320 

ANSWER, 

ASL 

A 

REMOVE 

LDX 

#0 

THESE  LINES 

BCC 

IRQ310 

4  REINSERT 

INX 

THE  CALL  TO 

IRQ310  CLC 

GETXY  IN 

ADC 

OFFX 

CTRMOV 

STA 

XV AL 

— — 

TXA 

ADC 

OFFX* 1 

— — 

STA 

XVAL*1 

... 

LDA 

H2IRQ 

... 

CLC 

... 

ADC 

OFFY 

— 

STA 

YVAL 

— 

IRO320  LDA 

IRQ 

AND 

♦  127 

ORA 

#76 

STA 

IRQ 

LDA 

#0 

FORMERLY  3 

STA 

SORTAF 

LDA 

#10 

STA 

NUMKD 

JSR 

INFOFB 

LDY 

#5 

LDA 

NUMR20 

STA 

< $FB) , Y 

STA 

LASTSH, Y 

INY 

LDA 

NUMR20  * 1 

STA 

UFB)  ,Y 

STA 

LASTSH. Y 

LDA 

NUMR60 

STA 

LASTSH+7 

LDA 

NUMR60*1 

STA 

LASTSH*  8 

LDA 

#0 

STA 

CUR1 

STA 

CUR2 

STA 

NUMR20 

STA 

NUMR20* 1 

STA 

NUMR60 

STA 

NUMP60+ 1 

IRC340  PLA 

STA 

src 

PLA 

STA 

$FB 

JMP 

SEA31 

NORMAL  IRQ 

AFTER  LDY 

CUR2 

STACK  PTR 

INC 

CUR  2 

LDA 

53267 

X  LOCATION 

STA 

H1IRQ 

STA 

XLPA60,  Y 

LDA 

53261 

Y  LOCATION 

STA 

H2IRQ 

STA 

YLPA60 ,  Y 

LDA 

SORTAF 

BEQ 

IRQ360 

LDY 

CURSRT 

INC 

CURSRT 

CPY 

#5 

BCC 

IRQ350 

LDY 

#0 

STY 

CURSRT 

ZRQ350  LDA 

HI  IRQ 

STA 

SRTBUF.Y 

TYA 

CLC 

ADC 

•  5 

TAY 

LDA 

H2IRQ 

STA 

SRTBUF, Y 

DEC 

SORTAF 

IRQ360  DEC 

NUMRD 

#  READINGS 

BNE 

IRQ380 

TO  TAKE 

LDA 

IRQ 

EOR 

#192 

STA 

IRQ 

LDA 

#0 

EERO  STACK 

STA 

CUR1 

PTR  ir  DONE 

STA 

CUR  2 

STA 

CURSRT 

LDA 

#1 

STA 

H71RQ 

BIT 

IRQ2 

BMI 

IRQ370 

SVC 

XRQ3I0 

LDA 

V*21 

AND 

#254 

BNE 

IRQ380 

IRQ370  LDA 

IRQ 

AND 

#63 

STA 

IRQ 

JRQ3S0  JMP 

IRQ340 

ON3CRN  LDA 

53267 

rX  READINGS 

STA  HI IRQ 

LDX  53268  ;  Y  READINGS 

STX  H2IRQ 

CMP  LPCMPX 

BNE  ONSC30 

CPX  LPCMPY 

BNE  ONSC30 

BIT  BORCOL 

BMI  ONSC20 

INC  BORCOL 

LDA  BORCOL 

CMP  #30 

BCS  ON3C10 

RTS 


ONSC10  LDA  53210 
ORA  «12t 
STA  BORCOL 


;ONSC20  LDA 

#0 

; 

STA 

HI  IRQ 

STA 

H2IRQ 

ONSC20 

RTS 

ONSC30 

STA 

LPCMPX 

STX 

LPCMPY 

BIT 

BORCOL 

BPL 

ONSC40 

LDA 

BORCOL 

STA  £3210 
ONSC40  LDA  #0 

STA  BORCOL 
RTS 

INTOFB  LDA  *0 
STA  $FC 
LDA  SHOTS 
ASL  A 
ASL  A 
ASL  A 
ROL  $FC 
CLC 

ADC  #<INFO 
STA  9FB 
LDA  3FC 
ADC  *>INFO 
STA  $FC 
RTS 

INCNUM  LDX  CURNUM* 1 

INX 

CPX  #10 
BCC  INC020 
LDX  CURNUM 
INX 

CPX  #10 
BCC  INC010 
LDX  40 

INC31Q  STX  CURNUM 
LDX  #0 

INC020  STX  CURNUM* 1 

RTS 

SHONUM  LDY  #0 

LDX  #10  ; LEAD  SPACE 

LDA  CURNUM 

BEQ  SHN010 

ASL  A 

ASL  A 

ASL  A 

TAX 

SHN010  LDA  NUMDAT.X 
STA  #256, Y 
INX 
I  NY 

CPY  #8 

BCC  SHN010 

LDA  CURNUM* 1 

ASL  A 

ASL  A 

ASL  A 

TAX 

SHN020  LDA  NUMDAT.X 
STA  #256, Y 
INX 
INY 

CPY  «1( 

BCC  SHN020 
RTS 

NUMDAT  .BYTE  195.153,145.137,153,153. 
195,255,231,231, 199,231,231,231.  129 
.BYTE  255.195,153,249,243,207, 
159,  129,255,  195,  153. 249, 227, 249,  153 
.BYTE  195,255,249,241,225,153, 
121,  249,  249,255,  129,  159, 131,249,249 
.BYTE  153.195,255,195,153,159. 
131,153,153,195,255, 129, 153,243,231 
.BYTE  231.231,231,255,195,153, 
153.195.153,153,195,255,195, 153, 153 
.BYTE  193,249,153,195,255,255, 
255,255,255,255,255,255,255 
.EH>  XRQETUrr 
.LIB  REPLAY 

/REPLAY  FOR  10 -LEVEL  BRM  PROGRAM 
REPLAY  DEC  H7IRQ 
BEQ  RPL010 
JMP  RPL090 
RPLO10  LDA  #3 

STA  H7IRQ 
LDY  CUR1 
INY 

CPY  STOP  ;  LAST  RDG? 

BNE  RPL020 
LDA  YVAL 


BEQ 

RPL050 

SEC 

SBC 

TRAJ 

STA 

H6IRQ 

LDA 

XV AL 

BEQ 

RPL050 

SEC 

SBC 

WDRIFT 

TAX 

LDA 

XVAL+1 

SBC 

NDRIFT+1 

STA 

H5IRQ 

TXA 

LDX 

H5IRQ 

DEY 

JMP 

RPL040 

RPL020  DEY 

LDA 

12928. Y 

;  BULY 

BEQ 

RPL050 

CLC 

ADC 

OFFY 

STA 

H6IRQ 

LDX 

#0 

LDA 

12672, v 

;  BULX 

BEQ 

RPL0S0 

ASL 

A 

BCC 

RPL030 

LDX 

#1 

RPL030  CLC 

ADC 

OFFX 

STA 

H4IRQ 

TXA 

ADC 

OrFX*l 

STA 

H5IRQ 

LDA 

H4IRQ 

RPL040  SEC 

SBC 

HI  IRQ 

; TARX  L 

STA 

H4IRQ 

; BULX-TARX 

LDA 

H5IRQ 

SBC 

H2IRQ 

.‘TARX  H 

STA 

H5IRQ 

LDA 

H4IRQ 

CLC 

ADC 

#231 

;  254-23  SPOJ 

STA 

V*2 

f  OFFSET 

LDA 

H5IRQ 

ADC 

#0 

BNE 

RPL060 

LDA 

V+16 

AND 

♦  253 

STA 

V*16 

JMP 

RPL070 

RPLO50  LDA 

#0 

STA 

V*2 

STA 

V*3 

LDA 

V+16 

AND 

#253 

STA 

V+16 

JMP 

RPL080 

RPL060  LDA 

V+16 

ORA 

#2 

STA 

V+16 

APL070  LDA 

H6IRQ 

;  BULY 

SEC 

SBC 

H3IRQ 

; BULY-TARY 

CLC 

ADC 

#127 

; 152-25  SPOi 

STA 

V+3 

;  OFFSET 

RPLOtO  INY 

STY 

CUR1 

CPY 

STOP 

BNE 

RPL090 

LDA 

#0 

STA 

IRQ2 

RPL090  JMP 

8EA31 

.'NORMAL  IRQ 

.END 

REPLAY 

.•PROCEDURE  ROTATE 

.•TAKES  READINGS  BEFORE  TRIGGER 

;  PULL  AND  MOVES  THEM  SO  THAT 


THE  OLDEST  READINGS  ARE  FIRST. 
;C:SYS  ROTATE 

;A:RDGS  IN  BUFFERS  ARE  ADJUSTED. 


ROTATE 

LDA 

PHA 

1 

LDA 

#54 

STA 

1 

LDA 

LASTSH+6 

BEQ 

ROT030 

LDY 

LASTSH* 5 

BEQ 

ROT030 

ADDR 

SFB,  XLPB20 

ADDR 

8FD.YLPB20 

LDX 

#0 

LDA 

SHOTS 

AND 

•  1 

BEQ 

ROTO  10 

INC 

•FC 

INC 

8FK 

ROTO 10 

LDA 

(8FB),y 

STA 

HLDBUF.X 

LDA 

<$FD) , Y 

STA 

INY 

INX 

HLDBUF+256, X 

BNE 

ROTO  10 

LDY 

#0 

ROTO 20 

LDA 

HLDBUF.Y 

21 


STA 

(•FB)  ,  Y 

RTS 

BEO 

COL020 

LDA 

HLDBUF+256,  Y 

i 

COLO 10  JSR 

ADD40 

STA 

(SFD).Y 

.■PROCEDURE  WAIT 

DEX 

INY 

; CAUSES  A  DELAY 

BNE 

COLO 10 

BNE 

ROT02  0 

; B : LDY  WITH 

AN  APPROPRIATE  DELAY 

COL020  LDX 

HOLD2 

;  HOW  MANY 

ROTG3Q  LDA 

LASTSH+7 

;C: JSR  WAIT 

COL030  LDY 

•39 

ASL 

A 

;A:NONE 

COL040  LDA 

•FD 

;  COLOR 

BEQ 

ROTO 70 

NAIT  LDX 

•  <.55 

STA 

($FB) . Y 

LDA 

LASTSH+8 

NAIT1  DEX 

DEY 

BNE 

ROT040 

BNE 

HAITI 

BPL 

COL040 

BCC 

ROTO 70 

DEY 

JSR 

ADD40 

ROTO 40  LDA 

♦<XLPB60 

BNE 

HAITI 

DEX 

STA 

»FB 

RTS 

BNE 

COL030 

STA 

•FD 

SCENE  LDA 

•FB  .’CHIP  */BANK 

RTS 

LDA 

♦>XLPB60 

STA 

•DFFF 

ADD40  LDA 

•FB 

.•ADD  40  TO 

STA 

♦FC 

LDY 

•  0 

CLC 

;  IFB  FOR 

STA 

SFE 

LDA 

(•FD) , Y 

ADC 

•40 

;  NEXT  LINE 

INC 

•FE 

STA 

•FB  ; CRUNCH  CODE 

STA 

•FB 

LDA 

LASTSH+“> 

DINC 

«fd 

LDA 

•FC 

AND 

*127 

LDA 

•  43 

ADC 

#0 

TAY 

STA 

53265 

STA 

•FC 

LDA 

SHOTS 

LDA 

•29 

RTS 

AND 

*1 

STA 

53272 

.LIB 

MATTOMCTIOBS 

BEO 

ROTO SO 

ADDR 

•A3, 1024 

/FUNCTION  STDEV 

LDA 

SPB 

SCL010  LDA 

($FD),Y 

/ PUT  INTO  FLOATING  POINT  REGISTER/ 

CLC 

STA 

(•A3) , Y 

/  START  BYTE 

IN  STACK 

•  256  ♦ 

ADC 

*128 

DINC 

•FD 

;  END  BYTE  IN  STACK 

STA 

•FB 

DINC 

•A3 

STDEV  JSR 

•BIBF 

STA 

•FD 

LDA 

•A3 

STDL10  LDA 

100 

LDA 

SFC 

CMP 

•<2024 

STA 

NSIZE 

ADC 

*0 

BNE 

SCL010 

LDA 

101 

STA 

SFC 

LDA 

•A4 

STA 

TIMES 

STA 

SFE 

CMP 

•>2024 

SEC 

INC 

SFE 

BNE 

SCL010 

SBC 

100 

RCTC5C  LDA 

C$FB) ,Y 

ADDR 

5 A3. *192 

CLC 

STA 

HLDBUF , X 

SCL020  LDA 

•FB  ; CRUNCH  CODE 

ADC 

•  1 

LDA 

(SFD).Y 

STA 

(•A3).Y 

CMP 

•2 

STA 

HLDBUF+ 128.X 

DINC 

•A3 

BCS 

STDL20 

INY 

LDA 

•A3 

JMP 

STDL40 

TYA 

CMP 

•<16192 

STDL20  PHA 

AND 

*127 

BNE 

SCL020 

LDA 

•  0 

TAY 

LDA 

•A4 

TAY 

I  NX 

CMP 

•>16192 

JSR 

•B391 

/FLOAT 

BPL 

ROTO 50 

BNE 

SCL020 

JSR 

5  BBC  7 

/SAVE 

LDY 

♦  0 

ADDR 

•A3.  8192 

LDA 

•  0 

ROT060  LDA 

HLDBUF. Y 

SCL030  LDA 

(5FD). Y 

STA 

SUMX 

STA 

( SFB) , Y 

CMP 

•FB  .’CRUNCH  CODE 

STA 

SUMXU 

LDA 

HLDBUFU28,  Y 

BNE 

SCL040 

STDL30  LDA 

1 

STA 

($FD) , Y 

DINC 

•FD 

PHA 

INY 

LDA 

($FD) , Y 

LDA 

•  54 

BPL 

ROT060 

STA 

•A3 

STA 

1 

ROTO 7 0  PLA 

DINC 

•  FD 

LDY 

TIMES 

STA 

1 

LDA 

(•FD) , Y 

LDA 

(•FD) ,  Y 

RTS 

CLC 

STA 

HOLD 

NOTTRG  LDA 

56321  .REPEAT 

ADC 

•>•192 

CLC 

CMP 

*255  ;  UNTIL 

STA 

*A4 

ADC 

SUMX 

BNE 

NOTTRG  /  TRIGGER  IS 

JMP 

SCL050 

STA 

SUMX 

RTS 

;  RELEASED 

SCL040  STA 

(5A3),Y 

LDA 

SUMXU 

BANG  LDA 

*15 

DINC 

•A3 

ADC 

•0 

STA 

54296 

SCLOSO  DINC 

•FD 

STA 

SUMXU 

LDA 

•  10 

LDA 

•A3 

PLA 

STA 

54277 

CMP 

•<16192 

STA 

1 

LDA 

♦30 

BNE 

SCL030 

LDY 

HOLD 

STA 

54273 

LDA 

•A4 

LDA 

#0 

LDA 

*128 

CMP 

•>16192 

JSR 

•B391 

/FLOAT 

STA 

54276 

BNE 

SCL030 

JSR 

•BC0F 

/PUT  IK  FA2 

LDA 

•  129 

LDA 

•  59 

LDY 

HOLD 

STA 

54276 

STA 

53265 

LDA 

•0 

RTS 

LDA 

♦32  .RAM 

JSR 

•B391 

/FLOAT 

WHISTL  LDY 

*23 

STA 

IDFFF 

JSR 

•BA2B 

/MULTIPLY 

LDA 

•  0 

RTS 

LDA 

♦*5C 

WHSI ' 0  STA 

SID.  Y 

; PROCEDURE  SEEVAL 

LDY 

•  0 

DEY 

.-MOVE  VALUES  FROM  UNDER  RON 

JSR 

•BA8C 

/LOAD  FA2 

BPL 

NHSL10 

;  SINCE  SHOTS  NILL  HAVE  ALREADY 

JSR 

•B86A 

/ADD 

LDA 

*18 

;  BEEN  INCREMENTED.  THIS  ROUTINE 

JSR 

•BBC7 

/SAVE  FA1 

STA 

DELAY 

;  MOVES  THE 

HIGH  BUFFER  IF  SHOTS 

DEC 

TIMES 

WHSL20  LDA 

•  110 

;  IS  EVEN. 

IT  MOVES  THE  LOW 

LDY 

TIMES 

STA 

SID+1 

i  BUFFER  IF 

SHOTS  IS  ODD 

CPY 

NSIZE 

LDA 

•46 

SEEVAL  LDA 

1 

BCS 

STDL30 

STA 

SID 

PHA 

PLA 

LDA 

•  15 

LDA 

•54  /SELECT  RAM 

STA 

NSIZE 

STA 

SID+5 

STA 

1  /AT  •AOOO 

LDY 

SUMX 

STA 

SID+24 

ADDR 

|FB,  XLPB20 

LDA 

SUMXU 

LDY 

*7 

LDY 

•  0 

JSR 

•B391 

/FLOAT 

WH3L30  LDX 

•255 

LDA 

SHOTS 

JSR 

•BC0F 

/PUT  IN  FA2 

RH5U0  DEX 

AND 

•  1 

LDY 

SUMX 

BNE 

NHSL40 

BNE 

SEE010 

LDA 

SUMXU 

DEY 

INC 

•FC 

JSR 

•B391 

/FLOAT 

BNE 

NH3L30 

SEE010  LDA 

(•FB) ,Y 

JSR 

•BA2B 

/MULTIPLY 

LDA 

•  170 

STA 

12672, Y 

JSR 

•BC0F 

/ PUT  IN  FA2 

STA 

SIDU 

INY 

LDA 

•  0 

LDA 

•6 

BNE 

SEE010 

LDY 

NSIZE 

STA 

SID 

INC 

•FC 

JSR 

•B391 

/FLOAT 

LDA 

•21 

INC 

•FC 

JSR 

•BB12 

/DIVIDE 

STA 

SID+4 

SEE020  LDA 

(»FB),Y 

LDA 

•  •SC 

LDY 

•  30 

STA 

12928, Y 

LDY 

•  0 

WHJL50  LDX 

•  255 

INY 

JSR 

•BA8C 

/LOAD  FA2 

WH3L60  DEX 

BNE 

SEE020 

JSR 

•BI53 

/SUBTRACT 

BNE 

NHSL60 

PLA 

JSR 

•BC0F 

/PUT  IN  FA2 

DEY 

STA 

1 

LDA 

•0 

BNE 

WHJL50 

RTS 

LDY 

NSIZE 

DEC 

DELAY 

/ PROCEDURE 

COLORS 

DEY 

BNE 

WH5L20 

/CHANGES  COLOR  OF  PART  OF  BITMAP 

JSR 

•B391 

/FLOAT 

LDY 

•23 

/POKE  HOLOl 

WITH  START  LINE 

JSR 

•SB  12 

/DIVIDE 

LDA 

•  0 

/  POKE  HOLD2  WITH  •  OF  LINES 

LDA 

102 

/SIGN  FOR  FA1 

NRSL70  STA 

SID,  Y 

/  POKE  |FD 

WITH  THE  COLOR 

AND 

•  127 

DEY 

COLORS  ADDR 

•FB, 1024 

STA 

102 

/AB3 

BPL 

NHSL70 

LDX 

HOLD1  /START  LINE 

JSR 

•BF71 

;  SQR 

22 


STDL40  RTS 

RADERR  JSR 

SB1BF  .-SHOT  # 

LDX 

SHOTS 

LDA 

101 

AND 

*127 

STA 

SHOTS 

JSR 

INFOFB 

STX 

SHOTS 

LDA 

1 

PHA 

LDA 

#54 

STA 

1 

BIT 

101 

BPL 

RER020 

LDA 

SPB  /MAKE  SURE 

CLC 

;  VALUE  KITH 

ADC 

#<344  ;  OFFSET  IS 

STA 

SFD  ?  STORED  IN 

LDA 

SFC  /  RECORD 

ADC 

#>344  ;  KEEPING 

STA 

SrE  :  BUFFER 

LDY 

#1 

LDA 

(SFB).Y  /BULLET  X 

ASL 

A 

STA 

HOLD1 

LDX 

#0 

BCC 

RER010 

I  NX 

RER010  STX 

HOLD1+1 

LDA 

HOLD1 

CLC 

ADC 

OFFX 

STA 

HOLD1 

LDA 

HOLD1U 

ADC 

OFFX+1 

STA 

HOLD1  +  1 

LDA 

HOLD1 

LSR 

HOLD1  +  1 

ROR 

A 

STA 

($FB) , Y 

STA 

(SFD).Y 

I  NY 

LDA 

( SFB) , Y  /BULLET  Y 

CLC 

ADC 

OFFY 

STA 

(SFB) , Y 

STA 

(SFD) , Y 

REA020  LDY 

#3 

LDA 

(SFB) , Y  /TARGET  X 

LDY 

#1 

SEC 

SBC 

(SFB) , Y  /BULLET  X 

STA 

HOLD1 

LDA 

♦  0 

SBC 

♦  0 

STA 

HOLD 1+1 

ASL 

HOLD1  ZX-X*2 

ROL 

HOLD1+1 

LDY 

#4 

LDA 

( SFB) , Y  /TARGET  Y 

LDY 

•  2 

SEC 

SBC 

(SFB) , Y  /BULLET  Y 

STA 

HOLD  3 

LDA 

#0 

SBC 

#0 

STA 

HOLD3+1 

FLA 

STA 

1 

LDY 

HOLD1 

LDA 

HOLD1+1 

JSR 

FLOAT 

JSR 

SBC OF  /MOVE  TO  PA2 

LDY 

HOLD1 

LDA 

HOLD1  + 1 

JSR 

FLOAT 

JSR 

SBA2B  /MULTIPLY 

JSR 

SBBC7  /SAVE 

LDY 

HOLD3 

LDA 

HOLD 3 t 1 

JSR 

FLOAT 

JSR 

SBC OF  /MOVE  TO  FA2 

LDY 

HOLDS 

LDA 

HOLD3+1 

JSR 

FLOAT 

JSR 

SBA2B  /MULTIPLY 

LDA 

•  S5C 

LDY 

#0 

JSR 

SBASC  /  LOAD  PA2 

JSR 

»B86A  /ADD 

JSR 

SBP71  jSQR 

RTS 

.EKD 

MAnruMcnoMS 

.LIB 

SIOTOROUPS 

/PROCEDURE  IHTCRP  (SHOT CROUPS) 
/POKE  SPB  WITH  START  ADDRESS. 

/  POKE  HOLDS, TAR#  (ADD  12S  ZP 
/  ORLY  HIT/HISS  INFO  IS  DESIRED.) 
/  POKE  HOLD#  KITH  #  OP  SHOTS 
/  AT  EJfD,  HITS,  MISSES  ARE  SET, 

/  HOLD1  KILL  HAVE  •  UKGRAPHABLE 
/  SHOTS.  HOLD2  RILL  HAVE  TOTAL 
/  #  SHOTS  PIRED  AT  THIS  TARGET. 


SHTGRP  LDA 

1 

PHA 

LDA 

#54 

/SELECT  RAM 

STA 

1 

/  AT  SAOOO 

LDA 

#0 

STA 

HITS 

STA 

MISSES 

STA 

HOLD1 

STA 

HOLD  2 

LDA 

HOLDS 

/SEARCH 

AND 

#127 

Z  TAR  « 

STA 

CODE1 

SHG010 

LDY 

#0 

LDA 

(SFB) , Y 

/TAR  # 

AND 

♦  127 

CMP 

CODE1 

BNE 

SHG040 

INC 

HOLD  2 

LDA 

(SFB) , Y 

BMI 

SHG020 

INC 

HITS 

JMP 

SHG030 

SHG020 

INC 

MISSES 

SHG030 

BIT 

HOLD3 

BPL 

SHG050 

SKG040 

JMP 

SHG100 

SHG050 

I  NY 

LDA 

(SFB) , Y 

/  BULX 

LDX 

#0 

ASL 

A 

BCC 

SHG060 

I  MX 

SHGO60 

STA 

XVAL 

;  BULX*  2 

STX 

XVAL+1 

LDY 

#3 

LDA 

(SFB) , Y 

/TARX 

LDX 

#0 

ASL 

A 

BCC 

SHG070 

I  NX 

SHG070 

STA 

YVAL 

/ TARX*2 

STX 

YVAL+1 

LDA 

XVAL 

; BULX -TARX 

SEC 

SBC 

YVAL 

STA 

XVAL 

LDA 

XVAL+1 

SBC 

YVAL+1 

STA 

XVAL+1 

LDA 

XVAL 

CLC 

ADC 

#148 

/ 172-24 

STA 

XVAL 

LDA 

XVAL+1 

ADC 

#0 

STA 

XVAL+1 

BEQ 

SHG080 

LDA 

XVAL 

CMP 

#<320 

BCC 

SHC080 

INC 

HOLD1 

JMP 

SHG100 

SHG0S0 

LDY 

#2 

LDA 

(SFB) , Y 

/BULY 

LDY 

#4 

SEC 

SBC 

(SFB) , Y 

/TARY 

CLC 

ADC 

#100 

/ 150-50 

STA 

YVAL 

CMP 

#200 

BCC 

SHG090 

INC 

HOLD1 

JMP 

SHG100 

SHG090 

JSR 

BITPLT 

INC 

YVAL 

JSR 

BITPLT 

DINC 

XVAL 

JSR 

BITPLT 

DEC 

YVAL 

JSR 

BITPLT 

SHG100 

LDA 

•FB 

/ADD  •  FOR 

CLC 

/  NEXT  TIME 

ADC 

#1 

STA 

SFB 

LDA 

SFC 

ADC 

#0 

STA 

SFC 

DEC 

HOLD  4 

BEO 

SHG110 

JMP 

SHG010 

SHG110 

PLA 

STA 

1 

RTS 

BITPLT 

STY 

HOLDY 

LDA 

#0 

STA 

•PD 

STA 

IPE 

STA 

IA4 

STA 

YVAL+1 

PL020 

LDA 

YVAL 

AND 

#248  / 

INT (Y/t) *321 

LDX 

#3 

PL030 

ASL 

A 

ROL 

IA4 

DEX 

BNE 

PL030 

STA 

•A3 

LDX 

#5 

PL040 

LDA 

IPD 

CLC 

ADC 

•A3 

STA 

•FD 

LDA 
ADC 
STA 
DEX 
BNE 
LDA 
AND 
CLC 
ADC 
STA 
LDA 
ADC 
CLC 
ADC 
STA 
LDA 
AND 
TAY 
LDA 
AND 
STA 
LDA 
SEC 
SBC 
TAX 
LDA 
CPX 
BEO 

PL050  ASL 
DEX 
BNE 

PL060  ORA 
STA 
LDY 
CLC 
RTS 

.END  880TGR00P8 
.LIB  LETTERS 
/FI  TOGGLE  SIEE  (IX,  2X) 

;P2  SET  CURSOR  (X,Y  NEXT  4  BYTES) 
/F3  SPECIAL  INSTRUCTIONS 
;  BIT  0  SET: BLANK  SCREEN 

/  BIT  0  CLR: UNBLANK  SCREEN 

;  BIT  1  SET: ENTER  TEXT  MODE 
/  BIT  1  CLR: ENTER  GRAPHICS  MODE 

;  BIT  2  SET: SET  UPPER  CASE  MODE 

;  BIT  2  CLR: NO  CHANGE 

;  BIT  3  SET: SET  LONER  CASE  MODE 

/  BIT  3  CLR: NO  CHANGE 

;F5  SCREEN  COLOR  (IN  NEXT  2  BYTES) 
/F6  BORDER  COLOR  (IN  NEXT  2  BYTES) 
;F7  CHARACTER  COLOR  (NEXT  2  BYTES) 
/Tt  RETURN 
LETER5  LDA 
STA 
LDA 
STA 
LDY 
LDA 
BNE 
RTS 

LET010  STA 
I  NY 
LDA 
STA 
I  NY 
LDA 
STA 

LETML  LDY 
STY 
LDA 
AND 
BEQ 
LDA 
STA 

LET020  LDA 
BNE 
JSR 

LET02S  LDA 
AND 
STA 
LDA 
AND 
STA 

LBT030  LDA 
STA 
LDA 
STA 
ASL 
ASL 
ASL 
ASL 
BCC 
INC 

LET040  ASL 
ASL 
BCC 
INC 

LETOSO  ASL 
ASL 
BCC 
INC 

LETQ60  STA 
LDA 
CLC 
ADC 
STA 
LDA 


IPE 

SA4 

5FE 

PL040 

XVAL  zl*INT(X/8) 

#241 

•FD 

9FD 

XVAL+1 

SFE 

#>1192  /+8192 
SFE 

YVAL  ; Y  AND  7 

#7 

XVAL  ;X  AND  7 

♦  7 

SA3 

#7 

SA3  ;7- (X  AND  7) 

#1 

#0 

PL060 

A  ;2*  (7- (X 

.*  AND  7)) 

PL0S0 

(SPD).Y 

(SFD),Y 

HOLDY 


71 

SFD 

72 
•FE 

#0 

(IFD).Y 

LET010 

/LENGTH  OF 

LENSTR 

/STRING 

(SFD) , Y 

/ADDRESS  OF 

•A3 

/STRING  NON 
/IN  SA3  AND 

(•PD) , Y 

/•A4 

•A4 

j - 

♦  0 

FLAGS 

/CLEAR  FLAGS 

S3272 

/WHICH  SET? 

#2 

LET020 

/SET  1 

#4 

FLAGS 

PRGNUM 

LET025 

D  SABLE 

/SET  2 

56334 

/TURN  OFF 

#254 

/KEYSCAN 

56334 

/TIMER 

1 

/SNITCH 

#251 

/IN 

1 

#0 

HO  LDA 

/CHARS 

214 

/LINE  NUMBER 

•PE 

/LINE* 2 56 

A 

/ L1NE*2 

A 

/  LINE* 4 

A 

/LINE*! 

A 

LET040 
HO  LDA 
HOLDA 

/LINE* 16 

A 

/ LINS*32 

LETOSO 

HOLDA 

HOLDA 

A 

/ LINE* 64 

LETOtO 

•PE 

•FD 

HOLDA 

/LINE*320 

•PE 

•PE 

211 

/COLUMN 

23 


ASL 

A 

/COLUMN *2 

LDA 

53272 

/SET  LONER 

SBC 

♦  0 

ASL 

A 

/COLUMN *4 

ORA 

♦  2 

/CASE 

STA 

210 

ASL 

A 

; COLUMN *0 

STA 

53272 

DEC 

irF 

BCC 

LET07Q 

LDA 

FLAGS 

BEQ 

Bici 

INC 

srE 

ORA 

♦  4 

JMP 

LET600 

CL C 

STA 

FLAGS 

LET370  CMP 

♦  157 

LEFT  ARROW 

LET070 

ADC 

IFD 

LET240  LDA 

1 

/VIC  CHIP 

BNE 

LET390 

STA 

IFD 

;L*320+C*0 

AND 

♦251 

/OUT  AGAIN 

LDA 

FLAGS 

LDA 

SFE 

STA 

1 

AND 

♦  1 

ADC 

132 

/ 40192 

JMP 

LET600 

STA 

IFF 

STA 

SFE 

LET250  CMP 

♦  10 

/REVERSE 

BIG2  LDA 

211 

LETOIO 

LDA 

<$A3).Y 

BNE 

LET260 

/ON 

BNE 

LETS 10 

STY 

HOLDY 

LDA 

FLAGS 

LDA 

214 

CMP 

♦  142 

/SET  1 

ORA 

♦2 

BEQ 

SKIP 

BNE 

LET09Q 

STA 

FLAGS 

DEC 

214 

LDA 

FLAGS 

JMP 

LET6D0 

IDA 

♦40 

AND 

♦  251 

LET26Q  CMP 

♦  146 

/REVERSE 

STA 

211 

STA 

FLAGS 

BNE 

LET262 

/OFF 

LDA 

209 

JHP 

LET600 

LDA 

FLAGS 

SEC 

LET090 

CMP 

♦  14 

/SET  2 

AND 

♦253 

SBC 

♦40 

BNE 

LETIOO 

STA 

FLAGS 

STA 

209 

LDA 

FLAGS 

JMP 

LET600 

LDA 

210 

ORA 

♦4 

LBT262  CMP 

♦  130 

;F4 -ARROWS 

SBC 

♦0 

STA 

FLAGS 

BNE 

LET270 

STA 

210 

JMP 

1ET600 

JSR 

BYTE2 

LET300  DEC 

211 

LETIOO 

CMP 

♦  133 

/FI -ENLARGE 

BCC 

LET264 

DEC 

IFF 

BNE 

LET110 

/OR 

LET263  JMP 

LET610 

BEQ 

BIG2 

LDA 

FLAGS 

/NORMAL 

LET264  SEC 

JMP 

LBT600 

EOR 

♦  1 

SBC 

♦  1 

LET390  CMP 

♦  13 

STA 

FLAGS 

CMP 

♦  0 

BNE 

LET410 

JMP 

LET600 

BCS 

LET263 

LET400  LDA 

♦  40 

LET 110 

CMP 

♦  137 

/F2 -CURSOR 

ASL 

A 

STA 

211 

BNE 

LET160 

ASL 

A 

JSR 

TLINE 

JSR 

BYTE2 

ASL 

A 

JMP 

LET600 

BCC 

LET130 

CLC 

LET410  CMP 

♦  136 

;  F  7-CHAR  CO] 

LET12Q 

JMP 

LET61 0 

ADC 

♦ < ARROWS 

BNE 

LET430 

LET130 

CMP 

♦  40 

STA 

|FB 

JSR 

BYTE2 

BCS 

LET140 

LDA 

♦> ARROWS 

BCC 

LBT420 

STA 

211 

/X 

ADC 

♦  0 

JMP 

LET610 

LET140 

JSR 

BYTE2 

STA 

IFC 

LBT420  LDA 

♦  IS 

BCS 

LET120 

JMP 

LET 520 

STA 

CODE1 

CMP 

♦25 

LET270  CMP 

♦  135 

; PS -COLOR 

LDA 

HOLDA 

BCS 

LET150 

BNE 

LET290 

ASL 

A 

STA 

214 

JSR 

BYTE2 

ASL 

A 

LDY 

♦  4 

BCC 

LET200 

ASL 

A 

STY 

210 

JMP 

LET610 

ASL 

A 

ASL 

A 

LET280  LDA 

♦240 

STA 

HOLDA 

ASL 

A 

STA 

CODE1 

JSR 

ADJSCR 

ASL 

A 

JSR 

ADJSCR 

JMP 

LET600 

STA 

HOLDA 

JMP 

LET600 

LET430  CMP 

♦  140 

; FI -RETURN 

STA 

209 

LET290  CMP 

♦  139 

/F6-BORDER 

BEO 

LET400 

KULS 

LDA 

HOLDA 

BNE 

LET310 

; COLOR 

CMP 

♦  19 

/HOME 

CLC 

JSR 

BYTE2 

BNE 

LET440 

ADC 

209 

BCC 

LET300 

JMP 

LET330 

STA 

209 

JMP 

LET610 

LET440  LDX 

♦  0 

LDA 

210 

LET300  TAX 

LET4S0  LDA 

SPCIAL, X 

ADC 

♦  0 

LDA 

1 

/SNITCH  IN 

BEQ 

LET470 

STA 

210 

ORA 

♦4 

/VIC  CHIP  FOR 

CMP 

( IA3 ) ,  Y 

DEY 

STA 

1 

/A  SECOND 

BEQ 

LET460 

BNE 

MUL5 

STX 

53200 

; BORDER 

I  NX 

LET 1  SO 

JMP 

LET60Q 

LDA 

1 

/SWITCH  OUT 

INX 

LET160 

CMP 

♦  134 

/F3-SPC  INSTR 

AND 

♦  251 

/VIC  CHIP 

JMP 

LET450 

BEQ 

LET170 

STA 

1 

/AGAIN 

LET460  INX 

JMP 

LET2S0 

JMP 

LET600 

LDA 

SPCIAL,  X 

LET170 

JSR 

BYTE2 

LET310  CMP 

♦  147 

/CLEAR  SCREEN 

STA 

646 

BCC 

LETIOO 

BNE 

LET340 

JMP 

LET600 

JMP 

LET610 

LDA 

♦<0192 

LET470  LDA 

(|A3),Y 

LETIOO 

LDA 

1 

/VIC  CHIP 

STA 

$FD 

CMP 

♦  96 

ORA 

♦4 

/BACK  IN  FOR 

LDA 

♦>0192 

BCS 

LET4I0 

STA 

1 

/A  SECOND 

STA 

0FE 

AND 

♦  191 

;X<96 

LDA 

HOLDA 

LDY 

♦  0 

JMP 

LETS00 

AND 

♦  1 

LET320  LDA 

♦  0 

LET400  CMP 

♦  162 

BEQ 

LET190 

STA 

(IFD) , Y 

BCS 

LET490 

LDA 

53265 

/BLANK  SCREEN 

D1NC 

•FD 

AND 

♦  223 

; 96<X<161 

AND 

♦  239 

LDA 

0FD 

JMP 

LET500 

STA 

53265 

/ SCREEN 

CMP 

♦<16192 

LET490  AND 

♦  127 

; 161<X<256 

JMP 

LET200 

BNE 

LET320 

ORA 

♦  64 

LET190 

LDA 

53265 

/UNBLANK 

LDA 

IFE 

LET500  STA 

IFB 

ORA 

♦  16 

/SCREEN 

CMP 

♦>16192 

LDA 

♦  0 

STA 

53265 

BNE 

LST320 

STA 

IFC 

1X7200 

LDA 

HOLDA 

LET330  LDA 

♦>1024 

LDX 

♦3 

AND 

♦2 

STA 

210 

LETS 10  ASL 

•FB 

BEQ 

LET210 

LDA 

♦0 

ROL 

IFC 

LDA 

53265 

/SET 

STA 

209 

DEX 

AND 

♦223 

/TEXT 

STA 

211 

BNE 

LETS 10 

STA 

53265 

/MODE 

STA 

214 

LDA 

IFC 

LDA 

53272 

JMP 

LST600 

CLC 

AND 

♦247 

LETS 40  CMP 

♦29 

/RIGHT  ARROW 

ADC 

♦  IDO 

STA 

53272 

BNE 

LET350 

STA 

IFC 

JMP 

LET220 

JSR 

TLINE 

LDA 

FLAGS 

/WHICH  SET? 

LET210 

LDA 

53265 

/SET 

JMP 

LET600 

AND 

14 

ORA 

♦32 

/BIT  MAP 

UTS 50  CMP 

♦  17 

/DOWN  ARROW 

BEO 

LETS20 

/SET  1 

STA 

53265 

/MODE 

BNE 

LET360 

LDA 

IFC 

/SET  2 

LDA 

53272 

JSR 

LET  620 

CLC 

ORA 

♦0 

SKIP  JMP 

LET600 

ADC 

II 

STA 

53272 

LETS 60  CMP 

♦  145 

/UP  ARROW 

STA 

IFC 

LST220 

LDA 

HOLDA 

BNE 

LET370 

LET 520  LDA 

209 

AND 

♦4 

LDA 

FLAGS 

CLC 

BEQ 

LET230 

AND 

♦  1 

ADC 

211 

LDA 

53272 

/SET  UPPER 

STA 

IFF 

STA 

IC3 

AND 

♦253 

/CASE 

BIG1  IDA 

214 

LDA 

210 

STA 

53272 

BEQ 

SKIP 

ADC 

•  0 

LDA 

FLAGS 

DEC 

214 

STA 

IC4 

AND 

♦  251 

LDA 

209 

LDX 

II 

STA 

FLAGS 

SEC 

LDA 

646 

LET230 

U>A 

HOLDA 

SBC 

♦40 

ASL 

A 

AND 

♦• 

STA 

209 

ASL 

A 

BEQ 

LET240 

LDA 

210 

ASL 

A 

24 


25 


JSR 

CHROUT 

LDA 

40 

LDA 

V+21 

.-TURN  OFF 

LDA 

HOLD  1  +  1 

.  ;CHR$ (RECHI) 

STA 

H1TSPR 

AND 

4254 

l  MULTICOLOR 

JSR 

CHROUT 

STA 

MUMR20 

STA 

V+2t 

;  POR  SPR  0 

LDA 

to 

;CHR5 (0) 

STA 

NUMR20+1 

LDA 

434 

; BULLET 

JSR 

CHROUT 

STA 

NUMR60 

STA 

2040 

JSR 

CLRCHN 

STA 

NUMR60+1 

LDA 

412 

;MED  CRAY 

LDX 

tt 

STA 

PSTAT 

STA 

V+39 

JSR 

CHKOUT 

JSR 

4B1BF 

LDA 

40 

RTS 

LDA 

101 

STA 

SSCOL 

.BHD 

RECORDKEEPING 

STA 

IRQ 

LDA 

IRQ2 

;NO  CHECK 

PORT 

LDX 

to 

LDA 

100 

AND 

432 

/  POR 

POO  10 

LDA 

LOGON, * 

STA 

1RQ2 

BNE 

CTR150 

;  COLLISION? 

BEQ 

POO  20 

CTR010  LDA 

40 

LDA 

V+21 

;TURN  ON  POR 

JSR 

SEND 

STA 

OFFSCR 

ORA 

41 

;  COLLISION 

INX 

CTR020  JSR 

MOVESP 

STA 

V+21 

;  CHECK 

BNE 

POO  10 

JSR 

PAUSE 

LDX 

42 

POO  20 

LDX 

to 

BCS 

CTR030 

CTR130  LDA 

IRQ 

/CHECK  POR 

PO030 

LDA 

OFFX, X 

JMP 

CTR360 

ORA 

432 

;  COLLISION 

JSR 

SEND 

CTR030  LDA 

SORTAF 

STA 

IRQ 

INX 

BNE 

CTR030 

CTR140  LDA 

IRQ 

CPX 

44 

/  JSR 

GETXY  ;NO  MORE  SORT 

AND 

432 

BCC 

PO030 

JSR 

CLOSES 

BNE 

CTR140 

LDX 

to 

STA 

CURTAR 

DEX 

P0040 

LDA 

LASTSH, 

X 

TAX 

BNE 

CTR130 

JSR 

SEND 

BNE 

CTR040 

LDA 

V+21 

/TURN  OTP 

INX 

JMP 

CTR110 

AND 

4254 

;  BULLET 

CPX 

ts 

CTR040  LDA 

SPECIL,  X 

STA 

V+21 

BCC 

POO  40 

STA 

SPEC I L 

CTR1S0  LDA 

40 

LDA 

t!2l 

LDA 

40 

STA 

IPC 

LDX 

LASTSH+I 

STA 

NDRIFT+1 

LDA 

SHOTS 

BNE 

POO  SO 

LDA 

WIND 

ASL 

A 

LDX 

LASTSH+7 

AND 

496 

ASL 

A 

BMI 

POO  50 

BEQ 

CTR070 

ASL 

A 

TXA 

LDA 

XDRIFT, X 

ROL 

9FC 

POO  50 

STA 

STOP 

ASL 

A  ; RANGE *1 

CLC 

JSR 

SEND 

ASL 

A 

ADC 

4<INFO 

LDA 

SHOTS 

ASL 

A 

STA 

$FB 

LDX 

tl2t 

STA 

XDRIFT 

LDA 

SFC 

AND 

tl 

LDA 

NIND  ;GET  SPEED 

ADC 

4>INFO 

BEQ 

POO  60 

AND 

47 

STA 

SFC 

LDX 

to 

CLC 

; ADD  TARGET 

LDA 

SSCOL 

P0060 

TXA 

ADC 

XDRIFT  ;  OFFSET 

AND 

4254 

CLC 

TAY 

TAY 

ADC 

STOP 

LDA 

WIND  ; FULL  OR 

LDA 

42 

STA 

STOP 

AND 

432  s  HALF  VALUE? 

STA 

CODE  3 

;2**(HIT  SPRt ) 

LDA 

1 

BNE 

CTR060 

LDX 

41 

;HIT  SPRt 

PHA 

LDA 

NT  ABLE,  Y 

CTR160  TYA 

LDA 

t54 

LSR 

A 

STX 

CODE2 

STA 

1 

LSR 

A 

AND 

CODE3 

POO  70 

LDA 

XLPB60, 

X 

LSR 

A 

CLC 

JSR 

SEND 

LSR 

A 

BNE 

CTR170 

LDA 

YLPB60, 

X 

JMP 

CTR070 

INX 

JSR 

SEND 

CTR060  LDA 

NT ABLE, Y 

ASL 

CODES 

INX 

AND 

415 

BCC 

CTR160 

CPX 

STOP 

CTR070  STA 

WDRIFT 

LDX 

40 

BNE 

POO  70 

BIT 

NIND  .-NEGATIVE 

STX 

CODE2 

LDA 

tio 

BPL 

CTROtO  ;  DIRECTION? 

LDX 

CURTAR 

JSR 

SEND 

DEC 

NDRIFT+1 

CTR170  LDA 

TARNUM, 

X 

LDX 

to 

EOR 

4255 

BCC 

CTRltO 

POO  to 

LDA 

XLPA60, 

X 

STA 

WDRIFT 

ORA 

4128 

JSR 

SEND 

DINC 

WDRIFT 

JMP 

CTR190 

LDA 

YLPA60, 

X 

CTROtO  LDA 

YDRIFT, X 

CTR180  INC 

HITS 

JSR 

SEND 

STA 

TRAJ 

CTR190  LDY 

to 

INX 

LDA 

TIMEFL.X 

STA 

TARNUM 

CPX 

tio 

BEQ 

CTR110 

STA 

($FB) , Y 

.‘TARGET  ID 

BCC 

POO  to 

STA 

CURTF 

STA 

LASTSH, 

Y 

PLA 

LDA 

INSTK, X 

INY 

STA 

1 

BEQ 

CTR110 

LDA 

XVAL+1 

RTS 

LDX 

HOLD1 

LSR 

A 

LOGON 

.BYTE 

202,205 

,194,0 

LDA 

V,X 

LDA 

XV  AL 

SEND 

PHA 

CTR090  STA 

HOLD  2 

ROR 

A 

SEND 10 

BIT 

56577 

;NAIT  FOR 

JSR 

MOVESP 

STA 

(SFB) , Y 

; BULX/2 

BVS 

SEND10 

t  DAR  CLEAR 

JSR 

PAU010 

STA 

LASTSH, 

Y 

ROR 

A 

;HIGH  NYBBLE 

LDA 

ottscr 

INY 

ROR 

A 

BEQ 

CTR100 

LDA 

YVAL 

ROR 

A 

EOR 

4255 

STA 

(SFB) , Y 

?BULY 

ROR 

A 

AND 

V+21 

STA 

LASTSH, 

Y 

ORA 

tl2t 

,'SET  DA 

STA 

V+21 

INY 

STA 

56577 

LDA 

40 

LDA 

SPECIL, 

X 

SEHD20 

BIT 

5657; 

;NAIT  TOR 

STA 

OFFSCR 

STA 

SPECIL 

BVC 

SEND20 

;  DAR  SET 

CTR100  LDA 

V+21 

LDA 

CENX, X 

LDA 

to 

.'CLEAR  DA 

AND 

HOLDS 

STA 

CENX 

STA 

56577 

BEQ 

CTR110 

LDA 

CENY, X 

SENDS 0 

BIT 

56577 

/WAIT  POR 

LDX 

HOLD1 

STA 

CENY 

BVS 

SEND30 

; DAR  CLEAR 

LDA 

V,X 

TXA 

PLA 

CMP 

HOLD  2 

ASL 

A 

;POR  SPR  XY 

AND 

415 

/ LON  NYBBLE 

BEO 

CTR090 

PHA 

ORA 

4126 

;SET  DA 

DEC 

CURTF 

LDA 

V+16 

STA 

56577 

BNE 

CTR090 

CTR200  LSR 

A 

/PUT  RIGHT 

8END40 

BIT 

56577 

;NAIT  POR 

CTR110  LDA 

XV AL 

DEX 

;  X  IN 

BVC 

SEND40 

;  DAR  SET 

CLC 

BPL 

CTR200 

;  CARRY 

LDA 

40 

; CLEAR  DA 

ADC 

WDRIFT 

PLA 

STA 

56577 

STA 

XV  AL 

TAX 

RTS 

STA 

V 

LDA 

v.x 

.END 

LDA 

XVAL+1 

ROR 

A 

/RIGHT  X 

••327ft 

ADC 

NDRIFT+1 

CLC 

.-ADD  CENTER  X 

/MLCHOBKl .TXT 

STA 

XVAL+1 

ADC 

CENX 

/  OFFSET 

JMP 

CTRMOV 

LDA 

YVAL 

STA 

(SFB) , Y 

.-TARX/2 

JNP 

RANDOM 

CLC 

STA 

LASTSH, 

Y 

JMP 

DODATA 

ADC 

TRAJ 

INY 

JMP 

BEGIN 

STA 

YVAL 

LDA 

V+1,X 

JMP 

CTINFO 

STA 

V+l 

CLC 

/ADD  CENTER  Y 

JMP 

REKEEP 

LDA 

V+16 

ADC 

CENY 

/  OFFSET 

JMP 

DESCRP 

AND 

4254 

STA 

(SrB),T 

/  TARY 

JMP 

GETXY 

LDX 

XVAL+1 

STA 

LASTSH, 

Y 

.OPT 

MOL 

BEO 

CTR120 

LDA 

IRQ  2 

/IS  THIS  SHOT 

.LIB 

CTRMOV 

ORA 

41 

AND 

44 

/  A  REPEAT? 

CTRHOV 

JSR 

ENABLE 

CTR120  STA 

V+16 

BNE 

CTR220 

26 


LDA 

$PB 

.•STORE  IN 

CLC 

;  2ND  INFO 

ADC 

♦  <344 

;  BUFFER 

STA 

SPB 

z  (DISK 

LDA 

SFC 

;  RECORDS 

ADC 

♦  >344 

;  ONLY  HAVE 

STA 

SFC 

;  ORIGINAL 

LDA 

SHOTS 

;  SHOT) 

CLC 

ADC 

♦  1 

STA 

SHOTRK 

LDY 

♦  7 

CTR210  LDA 

LA5TSH, Y 

STA 

(SFB).r 

DEY 

BPL 

CTR210 

CTR220  LDA 

XV AL 

;  PUT  UP  CROSS 

SEC 

SBC 

♦  10 

STA 

V 

LDA 

XVAL+1 

SBC 

♦  0 

TAX 

LDA 

V+16 

AND 

♦  254 

CPX 

♦  0 

BEQ 

CTR230 

ORA 

♦  1 

CTR230  STA 

V+16 

LDA 

YVAL 

SEC 

SBC 

♦  9 

STA 

V+l 

LDA 

♦  42 

STA 

2040 

LDA 

V+28 

.•MULTICOLOR 

ORA 

♦  1 

;  MODE  ON 

STA 

V+2* 

LDA 

♦  1 

; WHITE 

STA 

V+39 

LDA 

IRQ2 

.•DON'T 

AND 

♦  16 

;  DISPLAY 

BNE 

CTR250 

;  CROSS? 

LDA 

IRQ2 

AND 

♦  • 

BEQ 

CTR240 

LDA 

LASTS H 

BPL 

CTR250 

CTR240  LDA 

V+21 

ORA 

♦  1 

STA 

V+21 

CTR250  LDA 

SSCOL 

; NAS  CLOSEST 

AND 

HOLD3 

;  TARGET  HIT? 

BNE 

CTR260 

.YES 

LDX 

CUR TAR 

BEQ 

CTR260 

LDA 

SPRCIL.X 

AND 

♦  64 

.•REVERSE 

BEQ 

CTR260 

;  DIRECTION? 

LDA 

INSTK.X 

EOR 

♦  255 

CLC 

ADC 

♦  1 

STA 

INSTK.X 

CTR260  LDA 

SPECIL 

BPL 

CTR265 

JMP 

CTR340 

CTR265  AND 

♦32 

; IS  THIS 

BEQ 

CTR290 

;  TARGET  MORE 

LDA 

♦  129 

;  THAN  1  SPR? 

STA 

CODE1 

LDX 

♦  7 

CTR270  LDA 

V+21 

AND 

CODE1 

BEQ 

CTR2I0 

LDA 

T ANNUM, X 

CMP 

TARNUM 

BNE 

CTR290 

LDA 

CODE1 

ORA 

CODE3 

STA 

CODE3 

CTR280  LSR 

COD  El 

DEX 

BNE 

CTR270 

CTR290  LDA 

HITSPR 

/TURN  OFF  ANY 

EOR 

♦255 

/  TARGET  PRE- 

ORA 

♦  1 

/  VIOUSLY  HIT 

AND 

V+21 

STA 

V+21 

LDX 

LASTSH 

LDA 

XRQ2 

AND 

♦  16 

BEQ 

CTRJ00 

CPX 

♦  129 

BCC 

CTR310 

JMP 

CTR320 

CTR300  LDA 

ZRQ2 

/SPECIAL 

AND 

♦  • 

/  CROSS? 

BEQ 

CTR330 

CPX 

♦  129 

/MISS? 

BCS 

CTR330 

CTR310  LDA 

1RQ2 

/IP  RET  AFTER 

AND 

♦  129 

/  EACH  TARGET 

BNE 

CTR320 

/  LEAVE  IT  UP 

LDA 

CODE  3 

/TURN  OFF 

EOR 

♦255 

/  HIT  TARGET 

AND 

V+21 

/  NON 

STA 

V+21 

CTR320  LDA 

♦0 

STA 

HITSPR 

JMP 

CTR340 

CTR330  LDA 

CODE3 

/SET  UP  TO 

ORA 

♦  1 

/  TURN  OFF 

STA 

HITSPR 

;  HIT  TARGET 

LDA 

♦  0 

/STOP  HIT 

LDX 

CODE  2 

/  TARGET 

STA 

INSTK.X 

LDA 

♦30 

STA 

CRSDLA 

CTR340  BIT 

TARNUM 

BVS 

CTR370 

LDX 

♦  7 

: CHECK  FOR 

LDA 

♦  129 

/  PENALTIES 

STA 

CODE1 

CTR3S0  LDA 

V+21 

/SPRITE  MUST 

AND 

CODE1 

;  BE  ON 

BEQ 

CTR360 

LDA 

TARNUM 

/HIT  TARGET 

AND 

♦  127 

CMP 

TARNUM, X 

; 

BCC 

CTR360 

/MUST  BE  LESS 

BEQ 

CTR360 

;  OR  EQUAL 

INC 

PENAL 

JMP 

CTR370 

CTR360  LSR 

CODE1 

DEX 

BPL 

CTR350 

CTR370  JSR 

ROTATE 

INC 

SHOTS 

LDA 

IRQ 

AND 

♦251 

STA 

IRQ 

SEC 

JSR 

CKSPCL 

BCS 

CTR430 

LDA 

SHOTS 

CMP 

MAXSHT 

BCC 

CTR38Q 

LDA 

IRQ 

ORA 

♦  1 

STA 

IRQ 

JMP 

CTR020 

CTR390  LDA 

IRO 

AND 

♦  192 

BEQ 

CTR430 

LDA 

56321 

CMP 

♦  127 

BNE 

CTR390 

LDA 

♦  128 

/BREAK  KEY 

STA 

FSTAT 

;  FLAG 

JMP 

CTR430 

CTR390  LDA 

OFFSCR 

BNE 

CTR400 

JMP 

CTR020 

CTR400  AND 

♦  1 

/WHISTLE 

BEQ 

CTR420 

Z  FLAG 

LDA 

V+21 

/SPRITE  ON? 

AND 

♦254 

BEQ 

CTR410 

JSR 

NH1STL 

CTR410  LDA 

OFFSCR 

/CLEAR  FLAG 

AND 

♦  254 

STA 

OFFSCR 

CTR420  LDA 

OFFSCR 

EOR 

♦255 

AND 

V+21 

STA 

V+21 

CLC 

JSR 

CKSPCL 

BCS 

CTR430 

JMP 

CTR010 

CTR430  LDA 

IRQ 

AND 

♦  15 

STA 

IRQ 

MOVE 

9FB,  TARORD 

LDY 

♦  0 

LDA 

(9FB) . Y 

CMP 

♦254 

BNE 

CTR440 

DXNC 

TARORD 

CTR440  LDA 

♦0 

LDY 

FSTAT 

JSR 

90391 

RTS 

CKSPCL  LDA 

XRQ2 

/RETURN  WHEN 

BMI 

CKSP10 

/  NO  TARGETS 

AND 

♦  64 

/  UP? 

BEQ 

CKSP40 

LDA 

V+21 

AND 

♦254 

BNE 

CXSP40 

CKSP10  BCC 

CKSP30 

CK3P20  LDA 

IRQ 

AND 

♦  192 

BNE 

CKSP20 

CESP30  SEC 

RTS 

CKSP40  CLC 

RTS 

MOVESP  LDY 

♦  14 

LDX 

♦  7 

LDA 

♦  129 

STA 

HOLD 

MOV010  LDA 

V+21 

AND 

HOLD 

BEQ 

MQV060 

LDA 

INSTK.X 

/STATIONARY? 

BEQ 

MOV060 

DEC 

CDLSTK,  X 

/MOVE  IT? 

BNE 

MOVOSO 

LDA 

HOLD 

AND 

OFFSCR 

BNE 

MOV060 

LDA 

DLSTK.X 

STA 

CDLSTK,  X 

LDA 

HOLD 

/CHECK 

AND 

V+16 

/  RIGHT  X 

BEQ 

MOV020 

LDA 

♦  1 

HOYO 20  STA 

HO  LDX 

LDA 

INSTK.X 

/ADD 

STA 

HOLDY 

;  INCREMENT 

CLC 

ADC 

V,  Y 

STA 

V,  Y 

LDA 

♦  0 

BIT 

HOLDY 

/  INCREMENTS? 

BPL 

MOVQ3Q 

LDA 

♦255 

MOV030  ADC 

HO  LDX 

BEQ 

MOV040 

LDA 

HOLD 

ORA 

V+16 

STA 

V+16 

LDA 

V.Y 

CMP 

♦  55 

BCS 

MOVOSO 

JMP 

MOV060 

MOV040  LDA 

HOLD 

EOR 

♦255 

AND 

V+16 

STA 

V+16 

LDA 

V.Y 

CMP 

♦  10 

BCS 

MOV060 

MOVOSO  LDA 

HOLD 

ORA 

OFFSCR 

STA 

OFFSCR 

NOV060  DEY 

DEY 

LSR 

HOLD 

DEX 

BNE 

MOV010 

RTS 

PAUSE  LDA 

IRQ 

/TRIG  PULL 

AND 

♦  4 

BEQ 

PAU010 

SEC 

RTS 

PAU010  LDA 

♦  566 

PAU020  SEC 

SBC 

♦  1 

BNE 

PAU020 

CLC 

RTS 

CLOSES  LDA 

♦255 

STA 

HOLDA 

; LON  DISTANCE 

LDA 

♦  128 

STA 

CODE1 

/SPRITE  CODE 

STA 

TARNUM 

;  FOR  MISS 

LDA 

XVAL+1 

LSR 

A 

LDA 

XV  AL 

ROR 

A 

STA 

HO  LDX 

/BULLET  X 

LDA 

♦0 

STA 

HOLD1 

STA 

HOLD  3 

LDX 

♦  14 

CL0010  LDA 

V+21 

/SPRITE  ON? 

AND 

CODE1 

BEQ 

C LOO 50 

LDA 

V+l.X 

SEC 

SBC 

YVAL 

BCS 

CLO020 

EOR 

♦255 

CLC 

ADC 

♦  1 

CLO020  STA 

HOLDY 

/TARY-BULY 

LDA 

V+16 

AND 

CODE1 

CLC 

BEQ 

C LOO 30 

SEC 

C LOO 30  LDA 

v.x 

ROR 

A 

SEC 

SBC 

HO  LDX 

BCS 

CLO040 

EOR 

♦255 

CLC 

ADC 

♦  1 

CLO040  CLC 

ADC 

HOLDY 

/XDIF+YD1F 

ROR 

A 

;  (XDIF+YDIF) /2 

CMP 

HOLDA 

BCS 

CLOOSO 

STA 

HOLDA 

8TX 

HOLD1 

LDA 

CODE1 

STA 

HOLD  3 

C LOO 50  LSR 

CODE1 

DEX 
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DEX 

ADC  HOLD1+1 

0, 

0, 

1.254,  0, 

12, 

36 

BNE 

CLOOIO 

STA  SFC 

.BYTE 

130, 160, 

3, 

35,  12,  16, 

0, 

LDA 

HOLD1 

RTS 

0, 

0. 

2,254,  0, 

6, 

12,254 

LSR 

A 

; ZERO  DATA  (0-16) 

.BYTE 

1,130, 160, 

3, 

35,  12,  16, 

0, 

RTS 

DITEMS  .BYTE  1,0,150,1,37,12.255,0.0, 

.  o. 

0, 

0, 

2,254,  0, 

6, 

12,254 

■TABLE 

.BYTE 

0.  16, 17,33.49, 

66.66,0 

4,0 

,0,  6. 15.254,255 

.BYTE 

2,243,152, 

2, 

41,204,  20, 

0, 

.BYTE 

0,  17,33,  50,66, 

•3,115,0 

; EXTENDED  PRETEST  DATA  (17-113) 

0, 

0, 

1, 2S4,  0, 

12, 

36 

.BYTE 

0.  17,45,66,99. 

116,146,0 

.BYTE 

1, 141,159, 

1,  41,204, 

10. 

0, 

.BYTE 

216, 145, 

4, 

36,  12,  20, 

0. 

.BYTE 

0,33,66,13,116 

1,146,181,0 

0, 

0, 

1.254,  0, 

12,  36,254 

0, 

0, 

3,255,  0, 

6, 

14,254 

•  BYTE 

0,33,66,  99,  141 

,111,215,0 

.BYTE 

1, 107,150, 

4,  37,  12, 

16, 

0, 

.BYTE 

2, 130, 160, 

3, 

35,  12,  24, 

0. 

.BYTE 

0,49, 13, 132, 111, 231,246,0 

0, 

0, 

4,  0,  0, 

6.  15,254 

0, 

0, 

2,254.  0, 

6, 

12 

.END 

CTRMOV 

.BYTE 

1,  93,  140, 

5,  36,  12, 

16, 

0, 

.BYTE 

194,130, 

5, 

37,  12,  24, 

0, 

.OPT 

NOL 

0, 

0, 

5,  1,  0, 

6,  16,254 

0, 

0, 

4,  0,  0, 

6, 

15,254 

.LIB 

DATAJTEMS 

.BYTE 

1.  193,  159, 

1,  41,204, 

10, 

0, 

.BYTE 

2,243,152, 

2, 

41,204,  16, 

0, 

.■DATA ITEMS  TOR  BRM  PROGRAM 

0, 

0, 

1,254.  0, 

12,  36,254 

0, 

0, 

1.254,  0, 

12, 

36 

DODATA 

JSR 

WHCDAT 

.BYTE 

1,  75.  150, 

4,  37,  12, 

16, 

0, 

.BYTE 

216,145, 

4, 

36,  12,  16. 

0, 

LDA 

♦<D ITEMS 

0. 

0, 

4,  0,  0, 

6,  15,254 

0, 

0. 

3,255,  0, 

6. 

14,254 

CLC 

.BYTE 

1,149,  140, 

5,  31,  12. 

16, 

0, 

; ATTACK /RE TREAT  1 

(913- 

1566) 

ADC 

STOP 

0, 

0, 

5.  1,  0, 

6,  16,254, 

255 

; SCREEN  ! 

l 

STA 

STOP 

.-LEVELS  ) 

-4  (114-224) 

.BYTE 

1,147,115, 

6, 

38,  12,  8, 

0, 

LDA 

#>DITEMS 

.BYTE 

2.  0,169, 

1,  39,204, 

6, 

0, 

0, 

0, 

5,  1,  1, 

6, 

16,136, 140 

ADC 

STOP*l 

0, 

0, 

0,255,  32, 

24,  32 

; SCREEN  \ 

l 

STA 

STOP+1 

.BYTE 

0,169,  1, 

40,204,  6, 

0, 

0, 

.BYTE 

1,233,115, 

6, 

38,  12,  14, 

0, 

ADDR 

$FD, 52410 

0, 

0,255,  32,  0, 

32,254 

0, 

0. 

5,  1,  1, 

6, 

16,  0 

LDY 

♦  0 

.BYTE 

1,  0,159, 

2,  41,204, 

11, 

o. 

.BYTE 

1,131,130, 

5, 

37,  12,  12, 

0, 

DODOIO 

LDA 

($FB) , Y 

0, 

0, 

1,254,  0, 

12,  36,254 

0, 

0, 

4.  0,  1, 

6, 

IS.  0 

STA 

<SFD),Y 

.BYTE 

1,  0,170, 

3,  35,  12, 

13, 

0, 

.BYTE 

1.  79,115, 

6, 

36,  12,  10. 

0, 

DINC 

$FB 

0, 

0, 

2,254,  0, 

6,  12,254 

0, 

0. 

5,  1,  1, 

6, 

16,136,138 

DINC 

SFD 

.BYTE 

1,  0,160, 

4,  36,  12, 

16, 

0, 

; SCREEN  : 

) 

LDA 

SFB 

0, 

0, 

3,255,  0. 

6.  14,254 

.BYTE 

2,171,130, 

5. 

37,  12,  6. 

0, 

CMP 

STOP 

.BYTE 

1,  0,150, 

5,  37.  12, 

19, 

0, 

0, 

0, 

4,  0,  2. 

6. 

15 

BCC 

DODOIO 

0, 

0, 

4.  0,  0, 

6,  15,254 

.BYTE 

65,145, 

4, 

36,  12,  8, 

0, 

LDA 

SFC 

.BYTE 

1,  0,140. 

6,  38,  12, 

21, 

0, 

0, 

0, 

3,255,  2, 

6, 

14,136.134 

CMP 

STOP+1 

0, 

0, 

5,  1,  0, 

6,  16,254, 

255 

; SCREEN  ' 

l 

BCC 

DODOIO 

.-LEVELS  I 

>-9  (225-912) 

.BYTE 

2,  13,130, 

5, 

37,  44,  16, 

0, 

RTS 

.BYTE 

1,243,152, 

2,  41,204, 

8, 

0, 

0, 

0, 

4,  0.  2, 

6, 

15 

.-PROCEDURE  RANDOM 

0, 

0, 

1,254,  0, 

12,  36,254 

.BYTE 

59,  145, 

4, 

36,  12,  16, 

0, 

.-POKE  STOP  WITH  THE  STARTING  LOC 

.BYTE 

1, 130, 160, 

3,  35,  12, 

10. 

0, 

0, 

0, 

3,255,  2, 

6, 

14,131 

;  IN  STACK  (X-START- 16325) 

0, 

0, 

2,254,  0, 

6,  12,254 

.BYTE 

1,211,160, 

3. 

35,  12,  12, 

0, 

;  AND  1632S-XXXXX  WITH  THE 

DATA 

.BYTE 

2,  41,165, 

1,  39,204, 

6, 

0, 

0, 

0, 

2,254,  1, 

6, 

12,131 

;  ITEMS.  POKE  HOLD1 , HOLD2 

NITH 

0, 

0, 

0,255,  32, 

24,  32 

.BYTE 

1,103,145, 

4, 

36,  12,  6. 

0, 

;  ADDRESS  OFFSET  OF  DATA  TC 

>  BE 

.BYTE 

96, 165, 

1,  40,204, 

6, 

0, 

0, 

0, 

3.255,  1. 

6, 

14,136,140 

;  MOVED. 

0, 

0, 

0.2S5,  46, 

0,  32,254 

/ SCREEN  ! 

J 

RANDOM 

LDX 

STOP 

.BYTE 

1,130, 160, 

3,  35,  12. 

10, 

0. 

.BYTE 

1,253,160, 

3, 

35,  12,  6. 

o. 

ADDR 

$FD, 52410 

0, 

0, 

2,254,  0, 

6,  12,254 

0, 

0, 

2,254,  1, 

6. 

12,  0 

RAN010 

JSR 

NHCDAT 

.BYTE 

1,230,115, 

6.  36,  12, 

16, 

0, 

.BYTE 

1.  43.152, 

2. 

41,204,  6. 

0. 

LDA 

16325.X 

0, 

0, 

5,  1,  0, 

6,  16,254 

0, 

0, 

1.254,  1, 

12, 

36,134,134 

BMI 

RAN020 

.BYTE 

1,216,145, 

4,  36,  12, 

12, 

0, 

/SCREEN  < 

5 

JSR 

SEARCH 

0, 

0, 

3,255,  0. 

6,  14,254 

•  BYTE 

1.161,160, 

3, 

35,  12,  12. 

o. 

I  NX 

.BYTE 

1,194,130, 

5,  37,  12, 

14, 

0, 

0, 

0, 

2,254,  1, 

6. 

12,131 

BNE 

RAN010 

0, 

0, 

4,  0.  0. 

6,  15,254 

.BYTE 

1,251.152, 

2, 

41,204.  6. 

0, 

RAN020 

LDY 

♦  0 

.BYTE 

2,  46,165, 

1,  39,204, 

6, 

0, 

0, 

0, 

1,254,  1, 

12. 

36,131 

LDA 

#255 

0, 

0, 

0,255.  32, 

24,  32 

.BYTE 

2,  41,165, 

1, 

39,204,  4, 

0, 

STA 

($FD),Y 

.BYTE 

96.16S, 

1,  40,204, 

6, 

0, 

0, 

0. 

0,255,  33, 

24. 

32 

RTS 

0, 

0. 

0,255,  46, 

0,  32,254 

.BYTE 

•  9,165, 

1, 

40.204,  4, 

0. 

SEARCH 

STA 

SA3 

.BYTE 

1,216,145, 

4,  36,  12, 

12, 

0, 

0. 

0. 

0,255,  49, 

0. 

32,132,130 

STX 

SA4 

0, 

0. 

3,255,  0, 

6,  14,254 

.BYTE 

3,  47,152, 

2. 

41,204,  20, 

0, 

LDY 

#0 

.BYTE 

1,194,130, 

5.  37,  12, 

14, 

0, 

0, 

0, 

1,254,  3, 

12, 

36 

LDX 

#0 

0, 

0, 

4.  0,  0, 

6,  15.254 

.BYTE 

169,152, 

2, 

41,204,  20, 

0, 

CMP 

#0 

.BYTE 

2,243,152. 

2,  41,204, 

16. 

0, 

0, 

0, 

1.254,  3, 

12, 

36 

BEQ 

RAN060 

0, 

0. 

1.254,  0, 

12,36 

.BYTE 

19,160, 

3, 

35,  44,  20, 

0, 

RAN030 

LDA 

($FB),Y 

.BYTE 

194,130, 

5,  37,  12, 

16, 

0, 

0, 

0, 

2.254,  3, 

6, 

12,140 

DINC 

$FB 

0. 

0, 

4,  0,  0, 

6,  15,254 

.BYTE 

3,107,152, 

2, 

41,204,  6, 

0, 

TAX 

.BYTE 

1,218,145, 

4,  36,  12, 

12, 

0, 

0, 

0, 

1.254.  2, 

12, 

36 

RAN  04  0 

LDA 

SFB 

0. 

0, 

3,255,  0, 

6,  14,254 

.BYTE 

207.165, 

1, 

39,204.  6, 

0. 

CLC 

.BYTE 

2,130,160, 

3,  35.  12, 

20, 

0, 

0, 

0, 

0,255,  34, 

24, 

32 

ADC 

#14 

o. 

0. 

2,254,  0. 

6,12 

.BYTE 

255,  165, 

1, 

40,204,  6. 

0, 

STA 

SFB 

.BYTE 

230,115, 

6,  36,  12, 

20, 

0, 

0, 

0, 

0,255,  50. 

0, 

32,136,130 

LDA 

src 

0, 

0, 

5,  1,  0, 

6,  16,254 

.BYTE 

5,  29,165, 

1, 

39,204,  20, 

0, 

ADC 

♦o 

.BYTE 

2,243,152, 

2,  41,204, 

16, 

0, 

0, 

0, 

0,255,  36, 

24, 

32 

STA 

SFC 

0, 

0, 

1,254,  0, 

12,  36 

.BYTE 

77,165, 

1, 

40,204,  20, 

0, 

DEX 

.BYTE 

211,145, 

4.  36,  12. 

16, 

0, 

0, 

0, 

0,255.  52, 

0. 

32 

BNE 

RAN040 

0, 

0, 

3,255,  0, 

6.  14,254 

.BYTE 

91,152, 

2. 

41,204,  20. 

0. 

LDA 

<SFB),Y 

.BYTE 

3,  41,165, 

1,  39,204, 

12, 

0, 

0, 

0, 

1,254,  4, 

12, 

36 

BPL 

RAN050 

0, 

0, 

0,255,  32. 

24,  32 

.BYTE 

153,152, 

2. 

41,204,  20, 

0, 

DINC 

srs 

.BYTE 

96,165, 

1,  40,204, 

12, 

0, 

0, 

0. 

1,254,  4, 

12, 

36 

RAN050 

DEC 

SA3 

0, 

0, 

0,255,  48, 

0,  32 

.BYTE 

255,  152, 

2, 

41,204,  20, 

0, 

BNE 

RAN030 

.BYTE 

243,152, 

2,  41,204, 

12, 

0, 

0, 

0, 

1,254,  4, 

12. 

36,144 

RAN 060 

LDA 

(SFB) , Y 

0, 

0, 

1.254.  0, 

12,  36,254 

.BYTE 

1.221.160, 

3. 

35,  12.  4, 

0, 

STA 

SA3 

.BYTE 

1,130,  160, 

3,  35,  12, 

10, 

o. 

0, 

0, 

2,254,  1, 

6, 

12,132.134 

STA 

(SFD) , Y 

0, 

0, 

2,254,  0, 

6.  12,254 

/SCREEN  ! 

1 

IKY 

.BYTE 

1,194, 130, 

5,  37,  12, 

16, 

0, 

.BYTE 

1,205,152, 

2, 

41,204,  12, 

0, 

RAN070 

LDX 

#14 

0, 

0, 

4.  0,  0, 

6,  15.254 

0, 

0, 

1,254.  1, 

12, 

36.  0 

RAN080 

LDA 

(SrB),Y 

.BYTE 

3,  46,165, 

1,  39,204, 

16, 

0. 

.BYTE 

1, 101, 160, 

3. 

35,  12.  10, 

0, 

STA 

(SFD) , Y 

0, 

0, 

0,255,  32. 

24,  32 

0, 

0, 

2,254,  1, 

6, 

12,  0 

IKY 

.BYTE 

96,165, 

1,  40,204, 

16, 

0. 

.BYTE 

1.205,160, 

3. 

35.  12,  6, 

0, 

DEX 

0. 

0, 

0,255,  46, 

0,32 

0, 

0, 

2,254.  1, 

6, 

12,136,140 

BNE 

RAN060 

.BYTE 

150,160, 

3,  35,  12, 

16, 

0. 

/SCREEN  ! 

10 

DEC 

SA3 

0. 

0, 

2,254,  0, 

6,  12,254 

.BYTE 

1,111,160, 

3. 

35,  12,  6. 

0. 

BNE 

AAN070 

.BYTE 

1,243,152, 

2,  41,204, 

10, 

0, 

0, 

0, 

2,254.  1. 

6. 

12.  0 

LDA 

(SrB),Y 

0. 

0, 

1,254.  0, 

12,  36,254 

.BYTE 

1,255,  145, 

4, 

36.  12.  6. 

0, 

BPL 

RAN090 

.BYTE 

1,130,160, 

3,  35,  12, 

12, 

0, 

0, 

0, 

3,255,  1, 

6. 

14,134,134 

STA 

<sro),Y 

0, 

0, 

2,254,  0, 

6,  12,254 

/SCREEN  ! 

LI 

imr 

.BYTE 

3.  46,165, 

1,  39,204, 

16, 

0, 

.BYTE 

3,241.160, 

3. 

35,  12.  16, 

0, 

RAN  0  JO 

TYA 

0, 

0, 

0,255,  32, 

24,  32 

0, 

0, 

2,254,  3, 

6, 

12 

CLC 

.BYTE 

96,165, 

1,  40,204, 

16. 

0, 

.BYTE 

99,145, 

4, 

36,  12,  16, 

0, 

ADC 

SFD 

0, 

0, 

0,255,  46, 

0,  32 

0. 

0, 

3,255,  3, 

6, 

14 

STA 

SFD 

.BYTE 

218.145, 

4,  36,  12, 

16, 

0, 

.BYTE 

215.145, 

4, 

36,  12,  16. 

0, 

LDA 

SFE 

0, 

0, 

3,255,  0, 

6,  14,254 

0, 

0, 

3,255,  3, 

6, 

14,132 

ADC 

#0 

.BYTE 

1,243,152, 

2,  41,204, 

10, 

0, 

.BYTE 

1,151.130, 

5, 

37,  12,  12. 

0, 

STA 

SFE 

0, 

0, 

1.254,  0, 

12,  36,254 

0, 

0, 

4,  0,  1, 

6. 

15,140,136 

LDX 

SA4 

.BYTE 

2,130,160, 

3,  35,  12. 

24, 

0, 

/SCREEN 

12 

RTS 

0. 

0, 

2.254.  0, 

6,  12 

.BYTE 

1,101,130 

5. 

37,  12,  6, 

0, 

wn  AT 

LDA 

#<DITEMS 

.BYTE 

216,145, 

4,  36,  12. 

24, 

0, 

0, 

0. 

4,  0.  1 

6, 

15,132 

CLC 

0. 

0, 

3.255.  0, 

6,  14,254 

.BYTE 

1,239,130 

5. 

37.  12,  4, 

0, 

ADC 

HOLD1 

.BYTE 

1,230,115, 

6,  36,  12, 

16, 

0, 

0, 

0, 

4,  0.  1 

6, 

15,132,136 

STA 

SFB 

0, 

0, 

5,  1,  0. 

6,  16,254 

/SCREEN 

13 

LDA 

«>DITEMS 

.BYTE 

2.243,152, 

2,  41.204, 

16, 

0, 

.BYTE 

2,147,115 

,  6. 

36.  12,  14, 

0 
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0,  0,  5, 

1,  2,  6,  16 

BCC 

BGL60 

LDX 

#8 

.BYTE  63,130,  5,  37,  12.  14, 

0. 

CMP 

#'3 

LDY 

•  15 

0,  0,  4, 

0,  2.  6,  15,  0 

BCC 

BGL70 

J5R 

SETLFS 

.BYTE  1,237,115,  6,  38,  12,  12, 

0. 

BGL60  JSR 

CLRLNE 

JSR 

OPEN 

0,  0,  5, 

1.  1.  6,  16,140,140 

JMP 

BGL50 

BCS 

NODISX 

.'SCREEN  14 

BGL70  LDX 

#23 

LDX 

#1 

•BYTE  1,105.115,  6,  38.  12,  », 

0. 

LDY 

#9 

JSR 

CHKOUT 

0,  0,  5. 

1,  1,  6,  16.131.255 

CLC 

BCC 

DISKON 

.END 

DATAITXMS 

JSR 

8FFF0 

rSET  CURSOR 

NODISK 

LDA 

#1 

.LIB 

BEGIN 

PRINT 

MSG5 

JSR 

CLOSE 

BEGIN  LDA 

*0 

BGL80  JSR 

8FFE4 

rGETIN 

JSR 

CLRCHN 

STA 

53210 

CMP 

#0 

LDA 

#0 

STA 

53211 

BEQ 

BGL80 

TAY 

LDA 

#21 

CMP 

#'  Y 

JSR 

FLOAT 

STA 

53272 

BEQ 

BGL90 

JMP 

RECS 

LDA 

#27 

CMP 

#'  N 

DISKON 

LDA 

#1 

STA 

53265 

BNE 

BGL80 

JSR 

CLOSE 

PRINT 

MSG1 

JMP 

BEGIN 

JSR 

CLRCHN 

LDA 

*'2 

BGL90  RTS 

ADDR 

8A3.S1 

JSR 

CKAN5 

GETANS  JSR 

#FFCF 

; CHRIN 

LDA 

•S2-S1 

STA 

512 

STA 

512,  Y 

STA 

LENSTR 

STA 

PINFO 

STA 

PINFO, Y 

JSR 

LETHL 

LDA 

#58 

I  NY 

REC1 

ADDR 

8 A3, 52 

JSR 

CKANS 

CPY 

#20 

LDA 

•S3-S2 

STA 

513 

BEQ 

getlio 

STA 

LENSTR 

STA 

PINFO+1 

CMP 

•  13 

JSR 

LETML 

LDY 

#0 

BNE 

GETANS 

LDX 

#'  Y 

JSR 

DTOA 

GETL10  LDA 

#13 

JSR 

GKEY 

BEG 

BEGIN 

JSR 

IFFD2 

; CHROUT 

BCS 

REC2 

CMP 

#13 

RTS 

ADDR 

8 A3, S3 

BCS 

BEGIN 

CLRLNE  LDA 

♦  145 

;UP  ARROW 

LDA 

•S4-S3 

LDY 

#5 

JSR 

8FFD2 

; CHROUT 

STA 

LENSTR 

JSR 

RARRON 

LDY 

♦31 

JSR 

LETML 

LDA 

♦  '/ 

CLRL10  LDA 

#32 

; SPACE 

LDX 

«'N 

STA 

PINFCH2 

JSR 

8FFD2 

; CHROUT 

JSR 

GKEY 

LDA 

♦  '4 

DEY 

BCC 

REC1 

JSR 

CKANS 

BNE 

CLRL10 

REC2 

LDA 

•S5-S4 

STA 

512 

LDA 

#13 

STA 

LENSTR 

STA 

PINFO+3 

JSR 

SFFD2 

; CHROUT 

LDA 

8FD 

LDA 

#51 

LDA 

#145 

; UP  ARROW 

SEC 

JSR 

CKANS 

JSR 

8FFD2 

; CHROUT 

SBC 

#'  N 

STA 

513 

RTS 

BEQ 

REC3 

STA 

PINFO+4 

DTOA  LDA 

513, Y 

LDY 

#1 

LDY 

#0 

SEC 

LDA 

#0 

JSR 

DTOA 

SBC 

#48 

JSR 

FLOAT 

BEQ 

BEGIN 

CMP 

♦  10 

ADDR 

8A3.S4 

CMP 

#32 

BCS 

DTOA30 

JMP 

REC4 

BCS 

BEGIN 

LDA 

512, Y 

REC3 

TAY 

LDY 

#6 

SEC 

JSR 

FLOAT 

JSR 

RARRON 

SBC 

#48 

ADDR 

8A3.S5 

LDA 

#'/ 

CMP 

#10 

REC4 

JSR 

LETHL 

STA 

PINFO+5 

BCS 

DTOA30 

REC5 

LDY 

•  255 

LDA 

#58 

DTOA1&  STA 

OFF 

JSR 

WAIT 

JSR 

CKANS 

LDX 

♦  9 

LDY 

#255 

STA 

PINFO+6 

DTQA20  CLC 

JSR 

WAIT 

LDA 

♦  58 

ADC 

OFF 

LDY 

•  255 

JSR 

CKANS 

BCS 

DTOA30 

JSR 

WAIT 

STA 

PINFO+7 

DEX 

JSR 

NOTTRG 

LDA 

♦  13 

BNE 

DTOA2C 

RTS 

STA 

PINFO+8 

INY 

GKEY 

LDA 

#8FF 

JSR 

8FFD2  ; CHROUT 

CLC 

STA 

8A3 

JSR 

SFFD2  ; CHROUT 

ADC 

512, Y 

LDA 

#880 

JSR 

8FFD2  ; CHROUT 

SEC 

STA 

8A4 

BGL10  PRINT 

MSG2 

SBC 

#48 

STX 

8FD 

LDY 

•9 

CLC 

GKEY1 

JSR 

GETIN 

JSR 

GETANS  : A-E  OK 

DTOA30  RTS 

CMP 

•  0 

CPY 

#11 

CKANS  STA 

MAXVAL 

BNE 

GKEY  2 

BNE 

BGL15 

CKANS1  JSR 

IFFE4 

? GET IN 

DEC 

8A3 

LDA 

521 

CMP 

#0 

BNE 

GKEY  5 

CMP 

♦  'A 

BEQ 

CKANS 1 

DEC 

8A4 

BCC 

BGL15  ;<A 

CMP 

#'0 

BNE 

GKEY  5 

CMP 

#'F 

BCC 

CKANS 1 

CLC 

BCC 

BGL20  ;<F 

CMP 

MAXVAL 

RTS 

BGL1S  JSR 

CLRLNE 

BCS 

CKANS 1 

GKEY  2 

CMP 

#'  Y 

JMP 

BGL10 

JSR 

SFFD2 

r CHROUT 

BEQ 

GKEY 4 

BGL20  PRINT 

MSG3 

RTS 

CMP 

#'  N 

LDY 

•  11 

RARRON  LDA 

#29 

BNE 

GKEY1 

JSR 

GETANS 

JSR 

IFFD2 

;  CHROUT 

GKEY4 

STA 

8FD 

CPY 

•  14 

DEY 

SEC 

BEQ 

BCL25 

BNE 

RARRON 

RTS 

CPY 

•  13 

RTS 

GKEY  5 

LDA 

56321 

BNE 

BGL30 

GTINFO  LDA 

#16 

CMP 

#247 

LDA 

PINF04H 

LDY 

•0 

BNE 

CKEY1 

CMP 

#'l  ;<'l' 

STA 

(71), Y 

SEC 

BCC 

BGL30 

INY 

RTS 

CMP 

•  58  ;>'9' 

LDA 

♦<PINFO 

.OPT 

NOL 

BCS 

BGL30 

STA 

(71), Y 

SI 

. DBYTR  81311,88511.81111,81111. 

STA 

PINTCH12 

INY 

81111. 

81120. 

82020, 885C4 

LDA 

♦  '0 

LDA 

#>PINFO 

.BYTE 

'O  YOU  NISH  TO  KEEP 

STA 

PIHFO+1 1 

STA 

(71), Y 

RECORDS? * , 17 

.17,13 

LDA 

#13 

RTS 

32 

.DBYTE  82085.82020.82020,80509, 

STA 

PXNTO+13 

MSG1  .BYTE 

147,142,! 

13, 5, ' WELCOME  TO 

8C5D3, 

82020, 

82020 

JMP 

BGL50 

MACS', 13, 13 

.DBYTE  82020, 82020. 89785. 89D9D, 

BGL25  LDY 

•  11 

.BYTE 

'ENTER  DATE  (USE  LEADING 

84E4F, 

8910D 

JSR 

DTOA 

EEROS)!  ',13. 

13 

S3 

.DBYTE  82085.82020,82020,89720, 

BCC 

BGU0 

.BYTE 

•  _  _ 

19— ',13 

12020, 

89D9D. 

89D8S. 85945 

BGL30  JSR 

CLRLNE 

.BYTE 

'  MONTH  DAY  YEAR' 

.DBYTE  85320,88520,82020,82020, 

JMP 

BGL20 

.BYTE 

13,145,  145,'  \0 

•2020, 

805CE, 

8CF85, 8910D 

•GUO  BEQ 

BGL30 

MSC2  .BYTE 

'COMPANY 

(*-*)>  ',« 

84 

.DBYTE  80585,82020,82020,82020, 

CMP 

#11 

MSC3  .BYTE 

'BATTALION  (1-10) I  ',0 

82020, 

8D9C5, 

8D320 

BCS 

BGL30 

MSG4  .BYTE 

'BRIGADE 

(1-2) t  ',0 

.BYTE  ' 

BGL50  PRINT 

MSG4 

MSGS  .BYTE 

'IS  THIS 

CORRECT  (Y/N) 7' , 

S5 

.DBYTE  80585,82020,82020,82020, 

LDY 

#14 

13.0 

82020, 

820CE, 

8CF20 

JSR 

GETANS 

.END 

BtOIV 

•BYTE  '  * 

CPY 

#16 

.LIB 

REKESP 

"PT 

LIST 

BN1 

BGL60 

REKEEP  LDA 

#0 

.END 

REXEEP 

LDA 

S26 

JSR 

SETNAM 

.OPT 

NOL 

CMP 

#'l 

LDA 

•  1 

.LIE 

DESCRIPTIOM 

29 


DE5CRP  ADDR 

SFB.DESC 

ADDR 

$A3, 16192 

LDX 

HOLD1 

BEO 

DES050 

LDY 

#0 

DES010  DEX 

BEQ 

DES020 

LDA 

($FB)  ,  Y 

CLC 

ADC 

#1 

CLC 

ADC 

»FB 

STA 

$FB 

LDA 

$FC 

ADC 

40 

STA 

$FC 

JMP 

DES010 

DES020  LDA 

640 

SEC 

SBC 

(SFB) , Y 

LSR 

A 

TAY 

LDX 

60 

DBS 030  LDA 

632 

STA 

16192.X 

I  NX 

DEY 

BNE 

DES030 

LDA 

($FB) , Y 

STA 

HOLD1 

INY 

DES040  LDA 

(SFB)  ,Y 

STA 

16192, X 

I  NX 

INY 

DEC 

HOLD1 

BNE 

DES040 

STX 

LENSTR 

JSR 

LETML 

RTS 

DES050  INC 

HOLD1 

LDA 

HOLD1 

DES060  CMP 

SFD 

START 

BNE 

DES070 

LDX 

614 

LIGHT  BLUE 

STX 

646 

DES070  CMP 

SFE 

FINAL 

BCC 

DES080 

BEQ 

DESOBO 

LDX 

60 

BLACK 

STX 

646 

DESOBO  LDX 

632 

STX 

16192 

STX 

16195 

ORA 

648 

STA 

16193 

CMP 

656 

BNE 

DES090 

LDA 

6 ' 1 

STA 

16192 

LDA 

6'  0 

STA 

16193 

DES090  LDA 

6'  ; 

STA 

16194 

LDY 

60 

LDA 

<$FB),Y 

PHA 

TAY 

DES100  LDA 

(SFB) , Y 

STA 

16195, Y 

DEY 

BNE 

DES100 

PLA 

TAY 

DINC 

SFB 

CLC 

ADC 

SFB 

PHA 

LDA 

src 

ADC 

60 

PHA 

LDA 

SFD 

PHA 

LDA 

SFE 

PHA 

LDA 

613 

STA 

16196, Y 

IKY 

IKY 

IKY 

IKY 

IKY 

STY  LEHSTR 
JSR  LITML 
PLA 

STA  $n 
PLA 

STA  $ro 
PLA 

STA  ire 
PLA 

STA  |fB 

IHC  H0LD1 
LDA  HOLD! 

cmp  m 

BNE  DESOCO 
RTS 

DISC  .BYTE  31,201, ' NTRODUCTION/' ,211, 


'UPPORTED  ' ,201,'OSITION' 

.BYTE  33, 201 ,  * NTRODUCTION/' , 213, 
' KSUPPORTED  ' ,208, 'OSITION' 

.BYTE  32,212, '  IMED  ',212, 
'ARGET9/',  211,  'UPPORTED  '  ,  201,  'OSITION' 
.BYTE  34, 212,' IKED  ',212, 
'ARGETS/' ,213, 'NSUPPORTED  ',208, 

' 03ITI0N' 

.BYTE  22,208. 'RACTICE  ',210, 

' ECORD  ',198, 'IRE  ',201 

.BYTE  23,208, 'RACTICE  ',210, 


ECORD 

',198, 

,'IAE  ',201,201 

.BYTE 

11,210, 'ECORD  * 

,198, 'IRE' 

.BYTE 

19,210. 'APID 

,210. 'ECORD 

,198,  ’ 

IRE  ', 

201 

.BYTE 

20,210, 'APID 

,210, 'ECORD 

,198.' 

IRE 

,201,201 

.BYTE 

11, 195, 'OMBAT  ‘ 

,196. 'IRE' 

.BHD 

DESCRIPTIONS 

.LIB 

GITXYSORT 

;GETXY  AND  SORT 
.•PROCEDURE  GETXY 
; DETERMINES  BULLET  STRIKE 
; B : NONE 
;C: SYS  GETXY 

;A:PUTS  THE  BULLET  STRIKE  (X  AND  Y 
;  VALUES)  IN  XVAL  AND  YVAL. 

GETXY  LDA  STS I EE 

STA  NSRT 

JSR  SORT 

LDA  STSItE  ; FIND  THE 

LSR  A  ;  MEDIAN  OF 

TAX  ;  THE  SRTBUF 

LDA  SRTBUF, X 

ASL  A  ;  *2 

STA  XVAL  ,‘SET  UP  FOR 

LDA  #0  ;  ADDITION  OF 

BCC  GXY10  ;  OFFSET  X 

LDA  #1  .‘BULLET  RIGHT 

GXY10  STA  XVAL+1 

DADD  XVAL, OFFX 

LDA  STS  I  EE  .‘FIND  MEDIAN 

LSR  A  :  OF  THE 

CLC  ?  Y  HALF  OF 

ADC  STS I EE  ;  THE  SRTBUF 

TAX 

LDA  SRTBUF. X 

STA  YVAL  ,‘Y  MEDIAN 

LDA  10  ;SET  UP  FOR 

STA  YVAL+1  .OFFSET  ADD  Y 

DADD  YVAL, OFFY 


.•PROCEDURE  SORT 

; SORTS  NSRT  ELEMENTS  IN  SRTBUF 
;B: POKE  NSRT, <6  OF  ELEMENTS) 

; C : SYS  SORT 

;A: ELEMENTS  IN  SRTBUF  ARE  SORTED 
SORT  ADDR  $FD. SRTBUF 
LDY  NSRT 
BEQ  SRT30 
DEY 

BEO  SRT30 
STY  HOLD 
LDY  #0 

SRT10  LDA  ($FD) , Y 
INY 

CMP  ($FD),Y 

BCC  SRT20  .‘DON'T  SORT 

TAX  .‘SNAP  X  VALS 

LDA  (*FD).Y 

DEY 

STA  (#FD).Y 

INY 

TXA 

STA  ($FD),Y 

TYA  ; SNAP  CORRE- 

CLC  ;  SPONDING  Y 

ADC  NSRT  :  VALUES 

TAY 

DEY 

LDA  (SFD).Y 

TAX 

INY 

LDA  (6FD),Y 
DEY 

STA  (9FD) , Y 

INY 

TXA 

STA  (SFD).Y 

TYA 

SEC 

SBC  NSRT 
TAY 

SRT20  CPY  HOLD 
BN&  SR? 10 
LDY  #0 
DEC  HOLD 
BNE  SRT10 
SRT30  RTS 

.KMD  GETXY SORT 
.OPT  LIST 
.END 
*•49152 

;  STARTUP.TXT  FOR  Ml 6  BRM  CART 
t  STARTUP /SUBS  (1646  BYTES) 

;  49152-50797  (0-0)  32768-34413 

;  PRINT  FILES  (4785  BYTES) 


;  16394-21168  (0-0)  36141-4092S 

;  MLPRINTFILES  (34  BYTES) 

;  3400-3433  (0-0)  40926-40959 

i  MLCH0BK1  <4793  BYTES) 

;  NOMOVE  (0-1)  32766-37560 

;  BRM. SCENARIO. 3  (2919  BYTES) 

/  INDIRECT  COPY  (0-1)  36042-40959 
;  OPENING. SCENARIO  (4165  BYTES) 

;  INDIRECT  COPY  (0-2)  32766-3693 2 
;  SIGHT  PICTURE  (2656  BYTES) 

;  16394-19239  (0-2)  36933-39788 

;  CALIBRATION  (1171  BYTES) 

;  16364-17554  (0-2)  39769-40959 

;  BRM. 3400  (4782  BYTES) 

;  3400-8161  (0-3)  32768-37549 

;  BRM. SCENARIO. 4  (2992  BYTES) 
j  INDIRECT  COPY  (0-3)  37966-40959 
;  BRM. BAS  (1)  (6192  BYTES) 

;  16394-24575  (1-0)  32768-40959 

;  BRM. BAS  (2)  (6192  BYTES) 

;  24576-32767  (1-1)  32766-40959 

;  BRM. BAS  (3)  (2733  BYTES) 

;  32768-35500  (1-2)  32766-35500 

;  EERO. BAS  (1)  (2634  BYTES) 

;  16364-19217  (1-2)  38126-40959 

;  EERO. BAS  (2)  (8192  BYTES) 

;  19216-27409  (1-3)  32768-40959 

;  EERO . PICTURE . 1  (8000  BYTES) 

;  6192-16191  (2-0)  32768-40767 

;  EERO. PICTURE. 2  (6000  BYTES) 

;  6192-16191  (2-1)  32768-40767 

i  BRM. SCENARIO. 1  (4677  BYTES) 

;  INDIRECT  COPY  (2-2)  32766-37444 
,•  BRM. SCENARIO. 2  (3039  BYTES) 

;  INDIRECT  COPY  (2-2)  37445-40483 
;  EERO. 3000  (4669  BYTES) 

;  3000-7688  (2-3)  32766-37456 

;  BRM. SPRITES  (632  BYTES) 

;  2176-3007  (2-3)  37457-3828: 

;  EERO. SPRITES  (576  BYTES) 

;  2176-2751  (2-3)  38289-38864 

;  EERO. 50090  (2095  BYTES) 

;  50090-52164  (2-3)  36665-40959 

.OPT  NOL 
CTRREG  -1000 
SCRCT1  -1001 
SCRCT2  -1002 
GUNDL  -1003 

.KORD  ESTART-16394, SFEBC 
.BYTE  195,194,205.56.46 
PRGNUM  .BYTE  0 

[•PROCEDURE  SELSUB 
;  SELECTS  SUBROUTINE  ON  CH0BK1 
;  BY  POKING  ADDRESS  FROM  BASIC 


SELSUB  LDA 

61 

STA 

8DFFF 

JSR 

32768 

LDA 

632 

STA 

6DFFF 

RTS 

JMP 

BRM 

;BRM 

JMP 

PRGSEL 

; PRGSEL 

ESTART  STX 

ID016 

JSR 

6FDA3 

; IOINIT 

JSR 

8FD50 

,-RAMTAS 

JSR 

SFD  15 

;RESTOR 

JSR 

8FT5B 

;CINT 

CLI 

JSR 

6E4S3 

.•COPY  VECTORS 

JSR 

6E3BF 

;  INIT 

BRM  LDA 

60 

STA 

53280 

STA 

53281 

STA 

IDFFF 

LDA 

643 

STA 

53265 

ADDR 

8FD.491S2 

ADDR 

STOP.riN 

ADDR 

6A3, 66000 

JSR 

MOVEIT- 

16384 

JMP 

NENLOC 

NENLOC  LDA 

6234 

; DISABLE  STOP 

STA 

606 

;  KEY 

LDA 

6126 

.•DISABLE  CDR/ 

STA 

657 

;  SHIFT  KEYS 

LDA 

6<16364 

; BASIC  START 

STA 

641 

;OS  BOTTOM  L 

LDA 

#>16364 

STA 

44 

; BASIC  BOT  H 

STA 

642 

;OS  BOTTOM  H 

LDA 

#<16365 

9TA 

43 

; BASIC  BOT  L 

ADDR 

SS. 40960  .‘BASIC  TOP 

LDA 

60 

STA 

PRGNUM 

STA 

196 

STA 

V416 

STA 

V+21 

LDX 

60 

JSR 

PREPAR 

JSR 

D9ASLS 

LDA 

60 

STA 

V+39 

STA 

V+28 

STA 

V+29 

STA 

V+23 

LDA 

634 

30 


STA 

2040 

ZEROSC  .BYTE 

11  .-EERO.  3000 

LDA 

9rB 

ADDR 

$FD. 32761 

.WORD 

3000,7699,32769 

CLC 

LDA 

*2 

.BYTE 

11  ; EERO. 50090 

ADC 

•  8 

3TA 

9FB  .-CHIP  4 /BANK 

.WORD 

50090,52195,39965 

STA 

9FB 

J3R 

SCENE 

.BYTE 

11  ; ZERO. SPRITES 

LDA 

8FC 

SB  I 

.WORD 

2176,2752,39219 

ADC 

*0 

ADDR 

$314. START 

.BYTE 

6  ; ZERO. BAS  (1) 

STA 

9FC 

ADDR 

3FB.FM16 

.WORD 

16394, 19219.39126 

JMP 

INL130 

LDA 

#40 

.BYTE 

199  ; ZERO. BAS  (2) 

ZNL110  LDA 

*0 

STA 

SCRCT1 

.WORD 

19211,27410,32768 

STA 

16194, Y 

LDA 

#1 

SITPIC  .BYTE 

194  .-SIGHT  PICTURE 

DEY 

STA 

CTRREG 

.WORD 

16384.19240,36933 

BPL 

INL110 

LDA 

#0 

.LIB 

INTRO 

DEC 

SCRCT1 

STA 

SA1 

; INTRO.TXT  FOR  BRM  CARTRIDGE  INTRO 

BNE 

XNL130 

STA 

3A2 

START  LDA 

9A2 

LDA 

*3 

CLI 

AND 

*3 

STA 

SCRCT2 

JMP 

MVLOSO 

BNE 

INL040 

EOR 

CTRREG 

PRGSEL  LDA 

PRGNUM 

ADDR 

9A3, 1226 

STA 

CTRREG 

CMP 

*1  ; CALIBRATION? 

LDX 

♦  12 

LDY 

♦39 

BNE 

KVL010 

INL010  LDY 

*3 

LDA 

*33 

LDX 

♦CALIB-DATA 

INL020  LDA 

<9A3),Y 

XNL120  STA 

1984, Y 

JSR 

PREPAR 

CL C 

DEY 

JMP 

MVL040 

ADC 

*16 

BPL 

XNL120 

KVL010  CMP 

#2  ; PRINT  riLES? 

STA 

<9A3),Y 

XML130  IDA 

CTRREG 

BNE 

KVL020 

DEY 

AND 

•2 

LDX 

♦PFILES-DATA 

BPL 

INL020 

BEQ 

XNL150 

JSR 

PREPAR 

LDA 

$A3 

LDY 

*248  .-BLINK 

JMP 

MVL040 

CLC 

INL140  LDA 

PSBTB-l , Y 

MVL020  CMP 

#3  ; EROtS CHANGE? 

ADC 

*40 

STA 

15911, Y 

BNE 

MVL030 

STA 

5A3 

DEY 

LDX 

♦ZEROSC-DATA 

LDA 

8A4 

BNE 

INL140 

JSR 

PREPAR 

ADC 

*0 

LDA 

♦  190 

JMP 

MVLOSO 

STA 

9A4 

STA 

SCRCT1 

MVL030  LDX 

♦SITPIC-DATA 

DEX 

LDA 

CTRREG 

JSR 

PREPAR 

BNE 

INL010 

EOR 

*66 

KVL040  LDA 

*21  .-TEXT  SCREEN 

INL040  LDA 

8A1 

STA 

CTRREG 

STA 

53272 

AND 

*2 

INL150  LDA 

CTRREG 

LDA 

*27 

BEQ 

INL070 

AND 

•  9 

STA 

S3265 

LDA 

*15  ;GUN  BANG 

BEQ 

IKL170 

LDA 

♦  147  .-CLEAR  SCREEN 

STA 

54296 

LDY 

10  /KICK  LEFT 

JSR 

SFFD2 

LDA 

*10 

JSR 

SPRUPD 

MVLOSO  LDA 

*32  .-RAM 

STA 

54277 

INL160  LDA 

(9C3) , Y 

STA 

$DFFF 

LDA 

*30 

STA 

(9FD) , Y 

LDA 

*0 

STA 

54273 

I  NY 

STA 

199 

LDA 

*129 

CPY 

*240 

JSR 

9A971 

STA 

54276 

BNE 

INL160 

JMP 

$A7AE  ;RUN 

LDA 

*129 

LDA 

9C3 

PREPAR  LDA 

DATA, X 

STA 

54276 

CLC 

STA 

101 

LDA 

•  15 

ADC 

*64 

AND 

♦  63 

STA 

V  /X:  SPRITE 

0 

STA 

9C3 

STA 

$DFFF 

LDA 

*209 

LDA 

9C4 

I  NX 

STA 

V+l  ; Y:  SPRITE 

0 

ADC 

♦  1 

LDA 

DATA.  X 

LDA 

♦  2 

STA 

9C4 

STA 

$FD 

STA 

V+l 6  ; RIGHT  X 

LDA 

9FD 

I  NX 

STA 

V+21  ; SPRITE  CTRRG 

CLC 

LDA 

DATA.  X 

LDA 

♦  0 

ADC 

*64 

STA 

$FE 

STA 

9A1 

STA 

9FD 

I  NX 

LDA 

CTRREG 

LDA 

9FE 

LDA 

DATA, X 

ORA 

*9 

ADC 

#1 

STA 

STOP 

STA 

CTRREG 

STA 

9FE 

BIT 

101 

ADDR 

9A7, 1334 

DEC 

GVNDL 

BPL 

PREP20 

LDX 

*9 

BNE 

INL170 

STA 

45 

INLOSO  LDY 

♦  6 

LDA 

♦  10 

PREP20  XNX 

LDA 

*33 

STA 

GVNDL 

LDA 

DATA,  X 

INL060  STA 

(9A3),Y 

LDA 

CTRREG 

STA 

STOP+1 

DEY 

EOR 

•24 

BIT 

101 

BPL 

INL060 

STA 

CTRREG 

BPL 

PREP30 

LDA 

9A3 

XNLI70  LDA 

CTRREG 

STA 

46 

CLC 

AND 

*16 

PREP30  I NX 

ADC 

*40 

BEQ 

INL190 

LDA 

DATA,  X 

STA 

•A3 

JSR 

SPRUPD 

STA 

$A3 

LDA 

9A4 

DEC 

CUNDL  ; GUN  DELAY 

I  NX 

ADC 

*0 

BNE 

ZNL190 

LDA 

DATA,  X 

STA 

9A4 

LDA 

CTRREG 

STA 

*A4 

DEX 

EOR 

♦  49 

I  NX 

BNE 

ZNL050 

STA 

CTRREG 

JSR 

MOVE IT 

LDA 

♦<13960 

LDA 

*5 

BIT 

101 

STA 

9FD 

STA 

CUNDL 

BVC 

PREPAR 

LDA 

#<13969 

LDA 

*<13952 

RTS 

STA 

9C3 

STA 

9FD 

MOVE IT  LDY 

•  0 

LDA 

*>13969 

LDA 

•<13960 

MVLOSO  LDA 

<$A3),Y 

STA 

9FE 

STA 

8C3 

STA 

($FD) , Y 

STA 

9C4 

LDA 

*>13960 

DINC 

♦A3 

LDA 

•  5 

STA 

8rE 

DINC 

♦FD 

STA 

GVNDL 

STA 

8C4 

LDA 

♦FD 

INL070  LDA 

CTRREG 

XML190  LDA 

CTRREG 

CMP 

STOP 

AND 

♦  1 

AND 

♦32 

BNE 

MVL060 

BEQ 

ZNL130 

BEQ 

INL220 

LDA 

IFE 

LDA 

9A2  ;  SCROLL 

LDY 

*240  /KICK  RIGHT 

CMP 

STOP+1 

AND 

*7 

JSR 

SPRUPD 

BNE 

MVLOSO 

BNE 

XHL130 

INL190  LDA 

(9FD),Y 

RTS 

LDY 

*0 

STA 

(9C3).Y 

DATA  .BYTE 

3  /BRM.3400 

INL090  LDA 

15990, Y 

DEY 

.WORD 

3400, 1112, 32761 

STA 

15972, Y 

CPY 

•255 

.BYTE 

11  ;BRM. SPRITES 

IKY 

BNE 

1NL190 

.WORD 

2176,3001,37437 

BNE 

ZNL090 

LDA 

9C3 

.BYTE 

4  / BAM. BAS  (1) 

INL090  LDA 

16136, Y 

CLC 

.WORD 

16314,24576, 32769 

STA 

16129, Y 

ADC 

*64 

.BYTE 

5  rBRM.BAS  (2) 

I  NY 

STA 

9C3 

.WORD 

24576,32761,32761 

CPY 

*56 

LDA 

9C4 

.BYTE 

199  ;BRM.BAS  (3) 

BNE 

INLOSO 

ADC 

•  1 

.WORD 

32769,35501.32769 

LDY 

*7 

STA 

IC4 

CAL  IB  .BYTE 

194  ;  CALIBRATION 

XNL100  LDA 

(9FB) , Y 

LDA 

9FD 

.WORD 

16394.17555,39799 

CMP 

•254 

CLC 

SPILES  .BYTE 

0  /MLPRINTFXLES 

BEQ 

1NL110 

ADC 

•64 

.WORD 

3400,3434,40926 

STA 

16194, Y 

STA 

9FD 

.BYTE 

192  /PRINT  FILES 

DEY 

LDA 

9FE 

.WORD 

16394.21169,36141 

BPL 

INL100 

ADC 

•  1 

31 


♦ 


% 


STA  $FE 
DEC  GUNDL 
BNE  XNL220 
IDA  CTRREG 
AND  *223 
STA  CTRREG 
IDA  *0 

STA  V+21  ; SPRITE  CTRRG 

ADDR  5 A3, 1334 
LDX  *9 
INL200  LDY  #6 

IDA  *177 

XML210  STA  (6A3) , Y 
DEY 

BPL  INL210 
IDA  $A3 
CLC 

ADC  *40 
STA  $A3 
IDA  *A4 
ADC  *0 
STA  SA4 
DEX 

BNE  INL200 
INL220  IDA  CTRREG 
AND  *64 
BEQ  INL2I0 

DEC  SCRCT1  ; DELAY  PSB 

BNE  INL2S0 

DEC  SCRCT2 

BNE  INL240 

IDA  CTRREG 

EOR  *65 

STA  CTRREG 

ADDR  $FB, FH16 

LDY  *40 

STY  SCRCT1 

DEY 

IDA  *177 
1NL-50  STA  19*4, Y 
DEY 

BPL  INL230 
JHP  INL260 
INL240  IDA  SCRCT2 
AND  *1 
BEQ  XNL2S0 
LDA  CTRREG 
EOR  *66 
STA  CTRREG 
JMP  INL2S0 
INL250  IDA  *60 

STA  SCRCTl 
INL260  LDY  *247 
IDA  *0 

INL270  STA  159X2, Y 
DEY 

BNE  INL270 
INL2I0  JMP  SEA31 

SPRUPD  INC  V  ; X :  SPRITE  0 

INC  V 
INC  V 
RTS 

FM16  .BYTE  126. 96, 96, 120, 96, 96, 96. 0, 0. 
0,60,102,102,102,60,0,0,0,124 

.BYTE  102,96,96,  96,0,0,0,0,0,0,0, 
0. 0, 124,102, 102, 124, 102, 102,124 

.BYTE  0, 0,0, 60, 6, 62, 102, 62, 0, 0, 0, 
62,96,60,6,124,0,  0,24,0,56,24 

.BYTE  24,60, 0, 0, 0, 60. 96, 96, 96, 60, 
0,0,  0,0,  0,0,  0,0,0, 124, 102,102 

.BYTE  124,120,106.102,0,0,24,0, 
56,24,24,60,0,0,14,24,62,24,24,24 

.BYTE  0,0,56,24,24,24,24,60,0,0, 
0,60,102,126.96,60,0,0,0,0,0,0 

.BYTE  0,0,0,99.119,127,107,99,99, 
99,  0,  0,  0,  60,  6,  62, 102,  62,0,  0,  0 

.BYTE  124.102,96.96,96,0,0,96,96, 
106, 120, 106, 102, 0, 0, 0, 62, 96,  60 

.BYTE  6.124,0.0,0.102,127,127, 
107,  99,  0,0,  0,  60,  6.  62, 102,  62,  0,  0,  0 

.BYTE  124,102,102,102,102.0,0,0, 
62,96, 60, 6, 124, 0, 0,96,  96, 124,102 

.BYTE  102,102,0,0,24,0,56,24,24, 
60,0,0,0,124,102.102,124,96,96 

.BYTE  0,0.0,0,0,0,0,0,126,24,24, 
24,24,24,24,0,0.0,124,102,96.96 

.BYTE  96,0,0,0,60,6,62,102,62,0, 
0,24,0,56,24,24,60,0.0,0,124,102 

.BYTE  102,102,102,0,0,24,0,56,24, 
24,60,0,0,0,124,102,102,102,102 

.BYTE  0,0,0,62,102,102,62.6,124, 
254, 254, 254,254, 254,254,254, 254 
9SBTB  .BYTE  0,102,60,255,60,102,0,0,0, 
102,60, 255, 60, 102,0, 0, 0,102, 60, 255 

.BYTE  60,102,0,0,0,0,0.0,0,0,0.0, 
124, 102, 102, 124,96, 96, 96, 0, 0, 0 

.BYTE  124,102,96,96,96,0,0,0,60, 
102, 126, 96, 60, 0,0,0, 62,96, 60. 6, 124 

.BYTE  0.0,0,62,96,60.6,124,0,0,0, 
0. 0, 0, 0. 0, 0,60, 102, 96, 60,6, 102 

.BYTE  60,0,0,0,124,102,102,124, 
96,  96,  0, 0, 60,  6, 62, 102,  62,  0, 0,  0,  60 

.BYTE  96,96,96,60.0,0,0,60,102. 
126, 96, 60,0, 0, 96, 96, 124, 102, 102, 124 

.BYTE  0,0,0.60,6,62,102,62,0,0,0, 
124,102,96,96,96,  0, 0, 0, 0,  0.  0,  0 

.BYTE  0,0,0,24,126,24,24,24,14,0, 
0,0,60,102,102,102,60,0,0,0,0,0 


•BYTE  0.0.0,0.124,102,102,124. 
102, 102, 124,0,0, 0,60, 102,126, 96,60 

.BYTE  0,0,0.62,102,102,62,6.  124. 
0,24.0,  56.24,24,60.  0,  0,0,  124,  102 

.BYTE  102.102,102,0,0,0,0.0.0,0, 
0,0,0.  102,60,255,60, 102,  C  0,0,102 

.BYTE  60,255,60, 102,0,0,0,  102,60. 
255,60,102.0,0 
tin  -• 

.END  INTRO 
.OPT  LIST 
.END 
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